RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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NDXOUT == Sort and store index entries 1-5 pen- 138% 9}: Oo ¢ AX-11 Bliss-32 V4.0-7 Page 1 
Sep-1984 RUNOFF .SRC JNDXOUT. BLI: (1) 


p+ _} 


H 1 0 E "NDXOUT == Sort ne sf re index entries’ ; 
; 0 E NDXOUT (IDENT = ‘VOG- 60 : 
: ? ? ) MBLISS32 C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] ; 
3 5 808 1 BEGIN 3 
oe, 007 1! 
: 8 43 1 Be trae ated. msmineaanet Py 
s ® x ° 
; 0010 1 i COPYRIGHT (c) 1978, 1980 1982, 1984 B ~ a 
3 11 0011 1 i® DIGITAL oe CORPORATION, MAYNARD. MASSACHUSETTS. * : 
; i Og | is ALL RIGHTS RESERVE a : 
; * . 
3 14 014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 15 015 1 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biCcNse AND WITH THE * 3 
3 1g Bote 1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 3 
3 1 Bat 1 i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 18 ais 1 is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 43 dh : > TRANSFERRED. ” 3 
3 * 4 
. a 0021 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
, @ 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $i 4 Z : . CORPORATION. * $ 
> . ® PY 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
: 6 OSS 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
cn ay 0027 1 !* . 3 
= 0028 1 !« * $ 
3 $3 5 34 1 i eeeeeeeet eee ceeeeeeeeeeeeeeeeeeeeeeeeedeedeeeeeeeteneeeeeeeeeeeeeeeeeeneees Ps 
$ 1 i 3 
ee | kt 1 jee 3 
3 3 00 § 1! FACILITY: $ 
3 ? Boz ! DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility : 
F} 35 0035 1 ! ABSTRACT: F 
3 6 0036 1! The routines contained in this module sort and store F 
: 7 0037 1! index entries. This module is pert of INDEX and was 3 
3 8 0038 1! adopted from the TCX module XOUT. 3 
3 9 st 1! 3 
; 40 040 1! $ 
: «641 0041 1 ! ENVIRONMENT: Transportable : 
3 4g Bog 1! 3 
eg 0045 1 ! AUTHOR: JPK 3 
; «646 044 1! 3 
s 6§ 045 1 ! MODIFIED BY: 3 
s %&% BO08 . 3 3 
; 67 0047 1! 007 PK00018 09-Mar-1983 $ 
s 68 B08 1! Modi tied INDEX to handle new BRN format. 3 
: 49 049 1! Modified NDXOUT to handle specifyable levels on SORT= string. é 
3 0 050 1! Modified NDXFMT to output new RUNOFF proses ogue. ; 
; 1 bes \ : Modified NDXPAG to output new TMS prologue and RUNOFF epilogue. : 
3 7 bag 1! 006 JPKO00015 04-Feb-1983 3 
: 4 54 1! Cleaned up module names, modified revision history to F 
s $5 2? : : conform with established standards. Updated copyright dates. : 
é 38 oa9 1! 005 JPK00012 24-Jan-1983 $ 


55 


K 1 
NDXOUT == Sort and store index entries 1 it 1984 4: AX-11 Bliss-32 V4.0-74 
12-Sep-1984 9}: 8% ‘# RUNOFF. SRC NDXOUT SLA. ren aS 


Modified NDXVMSMSG.M i 
DSR INDEX and INDEX. SG to define error messages for both 


1! 
1! 
1! 
1-H y INDEX, XN NOXXTN, NDXTHS NOXVMS and NDXPAG for BLI§s32. 
062 1! ounce this file defines gh e error message literals, 
065 1 ! he eX TERNAL REFERENCES for the error message Literals 
bee 1 come been removed. 
066 1! 004 JPK00010 24-Jan-1983 
067 1! Removed routines G TBAT and UPDDAT from NDXDAT = they 
068 1! performed no useful function. Renoved references to these 
69% 1! routines from NDXOUT, NOXFMT, G. 
Oy : Removed reference to XPOOL in N NDXOUT - not used. 
Bre 1! 003 JPK00009 24-Jan-1983 
075 1! Modified to gy performance. The sort buckets have each 
074 1! been divided into 27 sub-buckets; 1 for each letter and 1 
0075 1! for non-alphas. aonevee reference to BUCKET from INDEX. 
8078 1! Definition of the structure was added to NDXPOL. References 
0077 1! to BUCKET ore changed in modules NDXOUT, NDXINI, NDXFMT 
ones ; and NDXDAT 
poet 1! 002 JPK00004 24-Se ope t9 
081 1! mee) tree NDXOUT, NDXMSG, SS KFAT and —z for TOPS-20. 
404 1! tri ngs stored in the index pool use the first fullword 
Sez : for their length. References to these strings were incorrect. 
0085 1 !- 
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11 
NDXOUT == Sort and store index entries 18-Sep-1984 94:06:66 AX=11 Bliss-32 V4.0-742 Page 3 


Declarations -$ep-1984 13:07:15 RUNOFF .SRCJNDXOUT.BLI;% (2) 
§ } RSBTTL "Declarations' 
; ! TABLE OF CONTENTS: 

90 1_ 

091 1 FORWARD ROUTINE 

$36 1 XOUT : NOVALUE, ' Put away index item 

95 1 SORT_AS : NOVALUE, ! Build sort eyeing 
0094 1 FIND_POS : NOVALUE, ! Locate position for insertion 
0095 1 FIND BUCKET, ' Locate bucket for insertion 
3098 1 INSERT_INX : NOVALUE, ! Insert index item into List 
93 1 INSERT_REF, ! Insert page reverence into list 

96 1 ENTRY_CMP, ' Compare new entry with current entry 
0099 1 STRG_CMP, ' Compare two strings 
Bi : CHRCAP : NOVALUE; ! Compare two characters in internal format 
O12 1! 

103 1 ! INCLUDE FILES: 

104 1! 

105 1 
8188 ; LIBRARY ‘NXPORT:XPORT'; 
0108 : SWITCHES LIST (REQUIRE); 
0110 1 REQUIRE ‘REQ:NDXCLI'; 


NDXOUT == Sort and store index entries 19- se0-1984 91:06:96 


1 Bt igs s-32 V4.0-7 Page 
Declarations -Sep-1 2 


4 
V335 3543004 : CRUNOFF sae NDXCLI.REQ;1 (1) 


3 re 1) } } IDENT = 0V04-00004 

: R 11§ 1 i eeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeneeereneeereeeerrereeeeeeeeeeeneeeeeeees 
; RO11 '® ” 
; R 118 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; R011 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. > 
3 aN : is ALL RIGHTS RESERVED . 
; ROII9 1 ie THIS SOFTWARE is. FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; kO120 1 it ONLY If. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; RO] 1 it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H Ret § 1 's COPIES iene OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; ROI 1 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 sid ¢ ! :* TRANSFERRED. . 
3 'e 

3 4 $ 1 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ROI 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 id 8 ; :t CORPORATION. : 
: RO150 7 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 44 1 : i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
3 'e 

: ROI § 1 'e % 
3; ROI 1 PASE S TSI IIIT T TTT TT TTT TTT Terre etic rect ici rr irri citi i tir iii iii iii i iitiiis | 
Mey 

: ROT 1 ++ 

3 RO 38 1 ! FACILITY: 

5 the 4 : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

: ROA i ABSTRACT: INDEX command Line definitions 

: ROWS 1 i ENVIRONMENT: Transportable 

: ROI1464 1 ‘ 

3; ROWS 1 ' AUTHOR: JPK 

; ROI46 1 ! 

3 tp) : : CREATION DATE: January 1982 

; RO149 i MODIFIED BY: 

> ROWS) 1 i 004 JPK00015 64-Feb-1983 

3 kO1S2 1 : Cleaned up module names, modified revision nistery to 

5 att ’ conform with established standards. Updated copyright dates. 
: ROSS 1 i 003 JPK00011 24-Jan-1983 

3 ROWS 1 ! Changed CMDBLK [NDX G LEVEL) t to er . CNOXSH_LEVELJ 

3; ROIS 1 ! Changed CMDBLK NDASH FORMAT) to CMDBLK CNDXSA LAYOUTI 

3 atts 1 ! Enanged CMDBLK CNDX$V~TMS11) at et NDXSV— TEX] to CMDBLK CNDXS$H_FORMAT] 
3; RO1S9 1 ! che anged c moor isons ¢ . cuns le A CHRSZA) to 

> Roo 1 COBBLE Cx ENDRSH FORMAT) EOL TRSII_AD. 

3 RO161 1 : bef in a were changed in NDXCLT and references to the 

; ® 196 1 : effected f pide were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 
3 197 : } and NDXCLID 

: P0165 1 i 002 REROOOO2 20-Jan-1983 

3 R198 1 ! fied VMS command Line interface module NDXVMS: 

3; RO167 1 : = changed /FORMAT qualifier to /LAYOUT. 


sz 


ee 


rele ho beneath nates ee 1$-e0-1964 ByReits Bese SRS tRinbee shcSwoxcus.reos1 2% 13 


= chan anged y use of /RESERVE and /REQUIRE for DSRPLUS. 
” ofner ode for new DSRPLUS qualifiers /FORMAT and 


Ad aged. isla te NDXCLI for new qualifiers: NDX$V_TELLTALE 
an 

Conditionalized output of NOXS$V_PAGE_MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS default values. 


sz 


12 
we index entrt 16-Sep-1984 01:04:24  VAX#11 BLiss-32 v4.0-74 Poe 6 
mums 1B-Se0-1984 B88: 8g Aes eS ES rR WMtE saCSwoxcur reast 9 ¢2$ 


#5 
s 


; RO178 1 ' 

3 rol : } NDXCMD_FIELDS 

; ROW] 1 SFIELD_ ndxcmd_fields = 

: ROWS | 

; R 1 4 i NDX$V_OPTIONS = CSINTEGER], ! Command option indicators: 

; ROIBG SOVERLAY (NDXS$V_OPTIONS) 

: ROWS 1 NDX$V_INPUT_CONCAT = ($B1T), ' Input file concatenated to previous 

3 RO182 1 NDX$V_OUTPUT = ($B1T), ' Generate output file 

; RO} 1 NDXS$V_REQUIRE = ($B1TJ, ! Require file specified 

; RO191 1 DXSY_PAGES = ($B1TJ, : anc Lude page references in index 

; RO1aE 1 NDXSV_OVERRI = ($B1TJ, ! Override master index information 
ij; ROI9S 1 NDX$V_STANDARD_PAGE = ($B1T), ! Generate standard page numbers 

> RO194 1 DX$V_CONTINUAT = ($B1TI, ! Generate continuation headings 

; ROI9S 1 NDX$V_GUIDE = ($817), ! Generate guide headings 

; Db 4 1 NDXSV_WORD_SORT = ($B1TJ, ! Sort entries word by word 

3; RO197 #1 NDX$V_LOG = ($B1TJ, ! Generate /LOG message 

; kRO198 1 NDXSV_MASTER = ($81TJ, ' Generate a master index 

; ROW9N9 1 NDX$V_PAGE_MERGE = ($81T), ! Merge adjacent page references 

3 Rose } NDXS$V_TELLTALE = ($B81T), ! Generate telltale headings 

; ROg0e | SCONTINUE 

: R056 1 NDXSH_FORMAT = CSSHORT_INTEGER], !' Qutput format: DSR, TMS, TEX 

: RO205 1 NDX$H_LAYOUT = Be A iNTecERg: ' Output layout type 

; RO 1 NDX$H_NONALPHA = CSSHORT_INTEGER), ! Treatment of leading nonalphas during sort 

3 RODOS 1 NDXSH_LEVEL = CSSHORT INTEGER], ' Deepest level to include in index 

; RO208 1 NDX$G_COLUMN_ = CSINTEGERI, ' Column width 

3 R309 1 NDX$G_GUTTER_WID = CSINTEGERJ, ' Gutter width 

3 kO210 1 DX$G_LINES PA = [SINTEGER], ' Lines per page 

; kRO211 1 NDX$G_RESERVE_LINES = BNE eER e ! Number of lines to reserve when requiring a file 

; ROS 1 NDX$G_SEPARATE WIDTH= CSINTEGER ! Width of reference portion of entry 

3; =6RO ig 1 NDXST_MASTER = C$DESCRIPTOR(DYNAMIC) » | Book name descriptor for Master indexing 

3 RO214 1 DX$T_ INPUT = [SDESCRIPTOR(DYNAMIC)], ! Input file name descriptor 

: RO21S 1 NDX$T_OUTPUT_FIL = CSDESCRIPTOR(DYNAMIC)), ! Output file name descriptor 

; RO 1 1 NDXST-REQUIRE_FILE = CSDESCRIPTOR(DYNAMIC))], ! Require file name descriptor 

3 RO217 1 NDOXST_RELATED_FILE = CSDESCRIPTOR(DYNAMIC)), ! Related file name descriptor is saved here 

: RO \8 1 ' by NDXINP for Later use by MAKNDX 

; Rosh? : NDXST_COMMAND_LINE = CSDESCRIPTOR(DYNAMIC)] ! Copy of entire command Line 

; noes) | TES; 

ae § 1 ' 

: Re 1 ! End of NDXCMD_FIELDS 

i Roos yO 

: RO 1 LITERAL 

3 Re ? ' NDXCMDSK_LENGTH = SFIELD_SET_SIZE; 

; 1 MACRO 

3 5 p ' SNDXCMD = BLOCK CNDXCMDSK_LENGTH] FIELD (NDXCMD_FIELDS) 2; 

; ! Output formats (NDXSH_FORMAT) 

eed ty = $DISTINCT, | Runoff 

; RO234 1 TAS11_A = $DISTINCT, ! TMS=A 


SS 


xOuT NDXOUT == Sort and store inde tri -Sep-19 1 Bliss-32 v4.0-7 Pa 
yoe-000 Declarations 4 peta a 1f-te Sep-198e 52:59:59  “SSSSSDUASBSCRGNUEF SRCoNDXCLI.REQ:1°% «26 


; RO235 1° TMS11_E = $DISTINCT, ' TMS=E 

; s : TEX = $DISTINCT; ' TEX 

: OR 1 SLITERAL ! Output Layouts (NDX$H_LAYOUT) 

; OR 1 TWO_ COLUMN = $DISTINCT, ' Normal two column format 

; rR 1 ONE- COLUMN = SDISTINCT, ! Normal one column Soraet 

; RO241 1 rice ATE = $DISTINCT, ' § seperace reference format 

; 4 r : GAL = $DISTINCT; ! 1 Galley format 

: RO264 1 SLITERAL ' Treatment of leading nonalphas during sort (NDX$H_NONALPHA) 
; RO245 1 BEFORE = $DISTINCT, ! Leading nonalphas sort before alph 

3 Re ‘8 1 AFTER = $DISTINCT, ! Leading nonalphas sort after alp as. 
3 ref : IGNORE = $SDISTINCT; ! Leading nonalphas are ignored 

: RO269 1 

; kRO250 1 ed End of NDXCLI.REQ 
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voa=000 nee A Speen medion: IE$S071984 $U:04:%4  YaBadD Ohdegasz 79 


i Hg 8583 1 REQUIRE 'REO:NDXX~PL'; 


12 
XOUT NDXOUT == S$ d i i -Sep- 704: - - .0- 
YOu-000 Declarations ee 1-00-1964 9:03:98 MOOSE DDADESCRONOEE  SRCINDXXPL REQ: 12%" a} 


53 


RO ; ! 
nO ¢ } Version: *v04-000' 
. leneeeneeeneneeeeenentenerententrenenetteerententnetentenetnntnnnnnnnsennntns 
‘@ ® 
no '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
R '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
ee re :* ALL RIGHTS RESERVED. * 
: ® 
RO o¢ '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
RO26 '® LY IN ACCORDANCE WITH TER F SUCH LICENSE AND WITH THE * 
Re 64 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
RO265 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RO rd '® QTHER PFRSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Re 24 is TRANSFERRED. * 
H ® 
RO +4 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
RO270 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ne | :* CORPORATION. * 
: ® 
RO ig '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
. a - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
' ® 
RO27 ! 
no AA ineeneeeeeeeeeeeeeeeeeeseenenennnnnenennnneeeesesenncnnnncnnnnannesenssetees 
ae 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
RO § ABSTRACT: 
R0284 This file contains definitions of data structures used to support 


the extended indexing features of the DSRPLUS INDEX program. 
ENVIRONMENT: Transportable BLISS 
AUTHOR: J.P. Kellerman 
CREATION DATE: January 1982 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Useeted module names, idents, 
copyright dates. Changed require files to BLISS library. 


. 
1 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
J 
. 
' 
. 
' 
. 
J 
. 
' 
. 
i 
. 
4 
. 
i 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
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! Extended INDEX attributes block. 
SFIELD XPL_FIELDS = 
SET 


2” 
oS 
SoOOOOOD So 
SSSSZ 4 
w A tae > MEW —0OO0 = 
ee ee ec ce ee ee ee me ee ee ee Be ee ed ee ed ed ed dd ed ed dd od ed 


XPL$V_OPTIONS = CSINTEGER), ! Attributes options 
SOVERLAY (XPL$V_OPTIONS) 
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NDXOUT NDXOUT == Sort and store index entries 16-Sep-1984 01:04: VAX-11 Bliss-32 V4.0-74 Page 10 
VOu000 Declarations 19738071384 93:09:98 $25 SDUALE  CRONOFE “SRCINDXXPL REQ: 1 7 (1) ve 
; kO310 1 XPL$V_VALID = sett ° ! Attributes block contains valid information. ; 
; ROS] 1 XPL$V_BOLD = [$BITJ, ' Bold page reference. ; 
; RO3SI2 1 XPLSV_UNDERLINE = [$BITJ, } gndee ned page reference. : 
; ROSIS 1 XPL$V_BEGIN = ($817), ! Begin page range. ‘ 
> RO3SI4 1 XPLS$V_ = ($81TJ, ! En page range. : 
; ROS1S 1 XPLSV_MASTER = [$81TJ, ! Master index entry. ‘ 
; OR 1 1 XPLSV_PERMUTE = [$81TJ, : poreyie index yet e : 
; RO3SI17 1 XPLSV_NOPERMUTE = ($B1TJ, ' Set ermute explicitly forbidden. ; 
; OR 18 1 XPL$V_SORT = [$81T), ! Set if SORT str ng present. : 
: ~ i ! XPLS$V_APPEND = ($B1TI, ! Set if append string present. : 
i ROSET | SCONTINUE : 
; «RO 5 1 XPLS$T_SORT = Pepe sen ie ToRcOvMAdiG} J. ! SORT yes - : 
; 6 ¢ ; XPLS$T_APPEND = CSDESCRIPTOR(DYNAMIC) ! APPEND string. : 
; RO $ 1 TES; : 
ce 1 ; 
; RO32B 1 LITERAL : 
; 44 2 : XPLSK_LENGTH = SFIELD_SET_SIZE; ; 
: Roe 1 #1 ACRO ; 
; Re § \ SXPL_BLOCK = BLOCK CXPLSK_LENGTH] FIELD (XPL_FIELDS) 2%; ; 
; RO3S34 1 ! ; 
3 Ait 5 ; } Macros for INDEX_ATTRIBUTES flags : 
; RO337 1 MACRO : 
; RO338 1 XPLUSSV_VALID = 0,0, 1.0%, ! Set if attributes data is valid. : 
3; RO339 1 XPLUS$V_BOL = 0, 1,1,0%, ! Set if page reference is bolded. : 
; RO340 1 XPLUSSV_UNDERLINE = 0, ¢ 1, 8 %, ! Set if page reference is underlined. : 
: site 1 XPLUS$V_BEGI = 0, 3, 1,0%, ! Set if entry begins a page range. ; 
; «RO ¢ 1 XPLUSSV_END = 0, 4,1,0%, ! Set if entry ends a page range. : 
; RO343 1 XPLUSSV_MAST = 0, 5, 1,0%, ! Set if master index entry only. : 
5 Roars 1 XPLUSSV_PERMUTE = 8° 6, 1,0%, ! Set if entry is to be permuted. ; 
; ROSAS 1 XPLUSSV_NOPERMUTE = 0, 7, 1, 0%, ! Set if permute is explicitly forbidden. : 
; RO346 1 XPLUS$V_SORT = 0, 8 1,0%, ! Set if entry contains a SORT string. : 
3 stot : XPLUS$V_APPEND = 0, 9, 1,0 %; ! Set if entry contains an APPEND string. : 
; RO349 1 ! End of NDXXPL.REQ ; 


VOe 000 mama ee if-$e 3op- 188 Fhi03:%s «© HANNO SReINDxoUt oc 144 Page (}} 
: its 8329 | REQUIRE *REG:NDXPOL': 
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NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 VAX-11 Bliss-32 V4.0-74 P 
Declarations 19230071382 9:05:38 VES sSp DA CRONE sac NDXPOL .REQ;1 ve 3 


1 
| Version: *v04-000' 


REPS E SESE TTT E TT TT TT TPIT TTT Tiree titi iri i ric iii iii iii ii iii ii iitiiiiiity 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
- 
* 
* 
4 * 
't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND M * 
He ey IN me i THE TERMS OF +t ie * 
' “« 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
‘® TRANSFERRED. ® 
' % 
't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

» 

* 

* 

Xe 

” 

~ 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
LRA AREA AAA ARRERAAEEERAEEEEEEAE EAE EEE EERE 
i 


++ 
FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: 
This file contains literals and macros defining the data structures 
found in the internal index pool 


' 

i 

; 

i 

i 

i 

1 
ENVIRONMENT: Transportable 

AUTHOR: JPK 

i CREATION DATE: January 1982 

i MODIFIED BY: 

; 003 JPK00015 04-Feb-1983 
! 
] 
i 
' 
; 
; 
; 
{ 


Cleaned up module names, modified revision nistery to 
conform with established standards. Updated copyright dates. 


002 JPK00009 24-Jan-1983 

Modified to opens performance. The sort buckets have each 
been divided into 27 sub-buckets; 1 for each letter and 1 
for non-alphas. Removed reference to BUCKET from INDEX. 
Definition of the structure was added to NDXPOL. References 
se PUEee | wore changed in modules NDXOUT, NDXINI, NDXFMT 
an : 


SS 
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! Index entry 
SFIELD XE_FIELDS = 
SET 


XESA_PREV = [SADDRESSJ, ! Link to previous item 
XESA_NEXT = [SADDRESSJ, ' Link to next item 
XESA_SUBX = [SADDRESS), ! Sub index pointer 
XESA_REF = [LSADDRESSJ, ! Reference pointer 

TEX = [SADDRESSJ, ! Pointer to text of index item 
XESA_SORT_AS = [SADDRESS ! Pointer to SORT_AS string 

“S$ = C$SHORT_INTEGER), i Sub index Level 
XESV_FLAGS = CSSHORT_INTEGER], ! Entry flags 

SOVERLAY (XES$V_FLAGS) 

XESV_BARS = ($B1T), ! Change bar flag 


SCONT INUE 
XESA_BOOK_LIST 
SALIGN (FULLWORD) 
TES; 


= CSADDRESS] 


Master index book name List 


LITERAL 
KESK_LENGTH = SFIELD_SET_SIZE; 


MACRO 
$XE_BLOCK = BLOCK CXESK_LENGTH] FIELD (XE_FIELDS) %; 
! End of Index entry 


! Reference entry 


SFIELD XX_FIELDS = 

SET 

XXSA_LINK = eApene S34 ‘ ! Link to additional entries 

XXSA_APPEND = CSADDRESS ! APPEND text pointer 

XX$H~PAGE = C$SHORT_ INTEGER, i Transaction number 

XX$V_FLAGS = CSSHORT_INTEGER], ! Display attributes 
SOVERLAY (XXS$V_FLAGS) 
XX$V_BOLD = ($B81T), ' Bold page reference 
XXSV_UNDERLINE = ($B8I1T), ! Underline page reference 
XX$V_BEGIN = seit ° } Begin page range 
XXS$SV_END = ($BITJ, ! End page range 
SCONTINUE 

XX$A_BOOK = CSADDRESSJ ! Master index book name 
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SS 


SALIGN (FULLWORD) 
TES; 


ie 
XXSK_LENGTH = SFIELD_SET_SIZE; 


MACRO 
$SXX_BLOCK = BLOCK CXXSK_LENGTH] FIELD (XX_FIELDS) 2%; 


! End of Reference entry 


! Master index book reference entry 


SFIELD XM_FIELDS = 
SET 
XMSA_LINK = CSADDRESS], ! Link to additional entries 
XM$A_BOOK = CSADDRESS ! Pointer to book name 
TES; 
LITE 


RAL 
XMSK_LENGTH = SFIELD_SET_SIZE; 


MACRO 
SXM_BLOCK = BLOCK CXMSK_LENGTH] FIELD (XM_FIELDS) %; 


! End of Master index book reference entry 


! Current Entry 


SFIELD C_FIELDS = 
SET 
CSA_CURR = CSADDRESS], ! Pointer to current cell 
CSA_PREV = CSADDRESSJ, ! Pointer to previous cell 
CSA_HEAD = CSADDRESSJ, ! Pointer to head of chain 
SALIGN (FULLWORD) 
CS$V_FLAGS = CSINTEGERI, ! Current cell flags 
SOVERLAY (C$V_FLAGS) 
C$V_IDNS = ($B1TJ ! Identical string flag 
SCONT INUE 
TES; 
LITE 


TERAL 
CSK_LENGTH = SFIELD_SET_SIZE; 


K 12 
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SC_BLOCK = BLOCK CCSK_LENGTH] FIELD (C_FIELDS) 2%; 
! End of current entry 


Dummy datasets 


ENTRY = XESK_LENGTH, 
R_ENTRY = XXSKTLENGTH, 
M-ENTRY = XMSKTLENGTH, 
STRING = 0; 


Structure definition for bucket array. 


Dio ee ee me mt et et we ee ee ee ee ee et memes eee 


RUCTURE 
seuces’ ARRAY CROW 


kk ek a a nd et a td ts a a a 8 dd 2 8 8 1s 1 8 2 1 2 a tt 


Buckets are arranged so that each row represents the first letter of 
the string and each column represents the second letter of the string. 


This approach is used only for master indexes as no performance 
improvement is realised until about 10 input files have been processed. 


Indexes which are not_master indexes use only the first element of 
each row, i.e., CO, 0]... (26, 0). 


The only gacogtton is for gona phabes te characters which use only 
element (0, 0J. Elements (0, 1] ... C0, 26] are not used since mapping 
all nonalphabetics into one row loses the sort order of the first 
character in the string. For nonalphabetics to work correctly in a two 
dimensional bucket scheme, the array would have to be at least 127 x 127 


1 . . . 26 


0 
Q ** not used .. 

1 A? AA A 
é 


2 es eA 


DX, COL_IDX; M, NJ = 
Nt XUPVACS ($BUCKET_ARRAY + (RCW_IDX * N + COL_IDX) * ZUPVAL); 


End of NDXPOL.REQ 


ES 
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8890 1 REQUIRE "REQ:LETTER'; 
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' 
. 


lee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


roe i teria ss FURNISHED the te A nae CEase AND MAY BE USED AND fg ha 
ONLY IN ACCORDANCE WITH F SUCH hws - — WITH THE 
INCLUSION OF THe ABOVE COPYRIGHT” NOTICES THIS SOF Ti ARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PANNSFERREST NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORATION. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 


Macros to test if a character is an appropriately flavored letter, 
and macros to convert between upper and lower case. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 

MODIFIED BY: 


002 KAD00002 Keith Dawson 07-Mar-1983 
Global edit of all modules. U gdated module names, idents, 
copyright dates. Changed requir files to BLISS library. 


CRO 
upper_letter (khar) = ! See if ypper case letter 
(Kha 


r GEQ ZC*A’ AND khar Le zc*z' 


lower_letter (khar) = ! See if lower case letter 
(Khar GEQ XC’ AND khar LEQ %C°z") 


53 


*TRONOFES she LETTER.REQ; ” te 


ns 


N 12 


Btirastaky ot rs, ntee serio Ol Eanes 


letter (khar) 


type of letter 
(upper_letter PS ” 


See 
(khar) OR lower. ietene cite 


MACRO 


upper pene «geen ! Convert to upper case 


(Kha - xC'a') 


wee oe (khar) ! Convert to lower case 


= 
RC'a’ = XC°A') 


! End of LETTER.REQ 


MST res 
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e 
CRONOFE SRCSLETTER.REQ:1 %” 
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eclarations 


645 
646 1 REQUIRE "REQ:NDXVMSREQ'; 


42 | 
L ‘8 1 SIF BLISS (B ) 
3 | gtass as 


if} 


3 
ep- 
ep- 


188e 93:83:43 


AX=1 
RUNO 


1 eskeinbeout orf, 


roe 8 
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| Version: *v04-000' 


, 
BSS ESESISI STITT TITS TTTT TT r cr iT rrrc irri citi cirri titi titi i iii iti iiiiiiiit 
\@ 


yee Age! Lg ee NDXFMT, NDXPAG, NDXVRS to require RNODEF 


f L1SS36 and to remove any conditional require based on 


; OR 1 

; RO6GB 1 

; RO649 1 

: Rosey 

Py ; 
; OR § 1 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 2 
; ROO 1 '‘w DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 Ree ¢ : - ALL RIGHTS RESERVED. : 
> RO6 : 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ROO 1 '‘® ONLY IN ACCORDANCE WITH E OF SUCH LICENSE AND WITH THE * 
3 Ree 8 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3; R 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; RO660 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Sed } + TRANSFERRED. * 
P H ® 
; Roees 1 ' THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3; RO664 1 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 sive #4 : ~ CORPORATION. ” 
Py ; wn 
3 Rose? | '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3; RO66B 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; RO669 1 e * 
3; kRO0670 1 'e * 
3 peer ' ‘ede echt 
; OR ! 

3 Roers 1 

3 RO674 1 144 

; kRO675 1 ! FACILITY: 

2 neers : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

: R0678 1 i ABSTRACT: 

; kRO679 1 ! This file contains external references to the error message numbers 

3 noon : for DSRINDEX/INDEX. 

: RO6 ¢ 1 i New messages must be defined in NDXVMSMSG.MSG and referenced here: 

3; OR 1 ! both in the MACRO section (for DSRINDEX) and the EXTERNAL LITERAL 

3 : : } section (for INDEX) 

F R | ENVIRONMENT: — VAX/VMS User Mode 

; R | AUTHOR: JPK 

; R060 | | CREATION DATE: 01-Feb-1983 

: R 9% | MODIFIED BY: 

> R069%% 1 i 004 JPK00022 30-Mar-1983 

3 ROO9S 1 ! Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 

3 R069! ! } to generate TEX output. Added module NDXTEX. 

: oR 1 i 003 yPK 0021 28-Mar-1983 

s R 1 Modified NDXT20 to include E2.0 functionality. 

; Boats 

; 1 ! 

3 1 ! 


or 
DSRPLUS_DEF. 


< 


vo4=000 oS pheenditenidnogecenstan ifs Sep-1986 22:53:82 ERUNOFFeSRESNDKVMSAEG R92; 1 eh 


> =RO? 1 ' 002 JPKO00010 04-Feb 

; kO705 1 : Cleaned up module n vanes. 1B itied revision niovery to 

; : f ! conform with established standards. Updated copyright dates. 
; RO? 3 1 fe< 

3: RO? 1 

; kO710 1 REQUIRE ‘REQ:RNODEF'; 


> 2 5 I 4 
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'@ 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


t® ALL RIGHTS RESERVED 


VAX=]] BLiss-32. V4.0-7 
VS355SDUADB: CRUNOFE SRCSRNODEF.REQ:1°°% «7 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND soraee 
'® ONLY IN ACCORDANCE WITH F SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT yt t THIS SOFTWARE OR ANY OTHER 
't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'@ 

it THE INFORMATION _IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 


® 
® 
t 
® 
® 
® 
® 
a 
® 
® 
ie TRANSFERRED. : 
® 
® 
® 
® 
© 
® 
* 
® 
' * 
BSSSSSSSISIT SETS I TTT TTT TTT TT Tree cece e ccc c cect titi cic iii iti titi iii iiiiiie gy 
4 


'+¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT 
; Converts BLISS/VARIANT values into useful names. 


i ENVIRONMENT: Transportable BLISS 
i AUTHOR: Rich Friday 

i CREATION DATE: 1978 

i MODIFIED BY: 


016 KAD00016 Marshall 19-Mar-1984 
Added GERMAN, FRENCH’ 6 ITALIAN. 


015 KADO00015 Keith Dawson 18-Apr-1983 
Made the LNO1 senaittans! the default for vanilla DSR -- 
its value is 0 (no variant supplied). 


014 KAD00014 Keith Dawson 22-Mar-1983 

Asserted the LNO1 conditional when DSRPLUS is asserted. 
013 KAD00013 Keith Dawson 20-Mar-1983 

Removed all references to .BIX and .BIC files. 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. U covet module names, idents, 
copyright dates. Changed require files to BLISS library. 
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Pat) 


DEFINITION OF /VARIANT BITS 

The bit assignments are as follows: 

Bit Weight __ Meaning 

-- 0 If no /VARIANT is supplied to for vanilla DSR), 
gone te with LNO1 pupeer’ LNO1 support is also. 
mplied by the DSRPL 


0 1 CLEAR = Unassigned 
= Unassigned 


variant. 


> 
az 
" 


SET 

CLE Normal compile 

SET = Compile for DSRPLUS 

CLEAR = English (American) version 
SET = 38 = = German (Austrian) 


32 = French 
48 = Italian 


This variable (LNO1) controls whether or not to compile an LNO1- flavored 
SR. It is asserted by default, and also whenever DSRPLUS is asserted. 


Modules utilizing LNO1 are: 

DOOPTS NOUT 
COMPILETIME 

( CRVARIANT EQL 0) OR XVARIANT/2 ) 

' 6 0060 6060 666666 6666665665556 SS S56 SS SSS ESSE SESSSSESEESSEEESEESEEESESSESSSSESES 
This variable (DSRPLUS) controls compilation for the DSRPLUS program. 
ALL modules utilize DSRPLUS. 
COMPILETIME 


dsrplus = 
( ZVARIANT/2 ) 


i This variable (FLIP) controls compilation of FLIP features of DSRPLUS. 
It assures that FLIP features are compiled only on VMS systems. 
i Modules utilizing FLIP are many and various. 


COMPILETIME 
flip = 


NOXOUT == Sort and store index entries i$-se Sep-1984 + 9 +93 $e VAX-11 Bliss-32 V4.0-7 age 3 
Declarations -Sep-1984 22: 8 VE35SSDUA2 : CRUNOFF . sre RNODEF .REQ; - (1) 


: R 5 : ( ZVARIANT/2 AND %BLISS(BLISS32) ) 

: nO $ 1 : 

Py R 8 1 ' ee ee Se Ce (SN ee et we em eS me me eS ew mm ew re ee  @& oe 
; RO 1 : 4-6 16 CLEAR = English (American) version 

; kOBSO 1 ! SET = 16 = German (Austrian) 

3; kROB3S1 1 ! = French 

3; RO g 1 ! = Italian 

: ROB 1 COMPILET INE 

> ROB34 1 erman = ( XVARIANT/16 AND NOT %VARIANT/32 AND NOT %VARIANT/64 ) ; 
> ROB3S 1 COMPILETIA E 

: tae cones een = ( NOT %VARIANT/16 AND %VARIANT/32 AND NOT Z%VARIANT/64 ) ; 
: ROB 8 i Italian = ( RVARIANT/16 AND XVARIANT/32 AND NOT RVARIAKT/64 ) ; 

> ROB4O 1 End of RNODEF REQ 
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NDXOUT NDXOUT == Sort and store index entries 1p-50 Sep-1 AX-11 Bliss-32 V4.0-7 P 6 
yOu-000 Declarations ; 308-138 g}: 94: $3 RUNOFF .SRC JNDXVMSREQ. R 2:1 ia (3 


SS 


3 Rose 1 NOES FL OSEQUOT ' phe te tee quote? 

: RO 1 INDEX$S_CONFQUAL, : ae teri tng ti ers> 

; f 1 INDEXS_CTRLCHAR  <th ye fo ttowing 4 contains control characters - ignered> 
; OR rid 1 INDEX$_DOESNT tThIf, i< t_ at the current indentation beve 

3; OR § 1 INDEX$_DUPBEGIN, ! <dupl icate Ri ys artsy - inserted as .XPLUS ( 
ABE] ABRSESSGU.” | conga [apie AS 

; RO90S 1 INDEX$—INVINPUT ! <{nval id°input, file ren in of Abe, "!AS'> 

: OR 1 INDEXSTINVRECORD, i <invalid record type in file '! 

; RO907 1 INDEX$_LASTCONT, ' <can't generate continuation heading on last page 

; kO908 1 INDEX$_NOBEGIN, ! <, XPLUS® (END) vise no .XPLUS ( - inserted> os «XPLUS ()> 
: RO808 1 INDEX = NOEND ' <.XPLUS (BEGIN) h as no corresponding «XPLUS (END)> 

: RO910 1 INDEX =NOINDEX, i <no index information in fil 

; kRO911 1 INDEX$_NOL IST ! <parameter List not allowed> 

g Roig 1 iNDEXS_OVERST TRK, ! <the following Line contains an overstrike sequence> 

3 04k, ! INDEXS SITAR Dd. $2 Ut reverence! $+ igside page range - ignored> 

3 ! <error pars 

; RO915 1 INDEXS-TEXF ILE, ! <error reostien Line !UL of TEX character file "!AS'> 
3 Rais 1 INDEX$_TOODEEP, ! <maximum subindex depth exceeded> 

3 ROOI7 1 INDEXS$_TOOF EW ! <not enough values supplied> 

; RO918 1 INDEX$S-TRUNCATED, | <string too long - truncated> 

; RO919 1 INDEXS$S_COMPLETE, : arTarrenss. complete ‘!AS'> 

: Roel | INDEXSTIDENTS.” =i CINDEX Version !AD> 

: * ! vers 

> ROO : 1 INDEX$S_PROCFILE, =! <processing file '!AS'> 

3; ROOD 1 INDEXS$_TEXT, ' <!AS> 

; kRO924 1 INDEXS$_TEXTD, ! <entry text: ‘!AD'> 

3 nos? ' INDEX$_TMS11; ! <output file full = continuing with file "!AS'> 
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tFI 
SWITCHES LIST (NOREQUIRE); 


; MACROS: 


pelelelelelelolola) 
OOOOODOO0O00O 
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PWN OCONOUES WO Ow 


1 
1 
1 
1 
1 
1 
: 
83 1 MACRO 
03 ! REPEAT = WHILE 1 DO 2%; 
9 72 
0940 1 ! EQUATED SYMBOLS: 
0941 1! 
0942 1 
094 1 LITERAL 
0944 1 TRUE = 1 
0945 1 FALSE = 6; 
0946 1 
0947 1! 
0948 1 ! OWN STORAGE: 
0949 1! 
0950 1 
0951 1 OWN 
oat) 1 LL $C_BLOCK, Current call choractertettes 
0953 1 SORT_STR : VECTOR CCHSALLOCATION (1200)], 7 Build sort stri ng here 
0954 1 SORT_PTR, ! Pointer to sort s cing 
0955 1 SORT_LEN ! Length of sort stri ng. 
0956 1 USER_ SORT LEN, i Length of user specified sort string 
oe 4 : USER_SORT_PTR; ! Pointer to user specified sort string 
0959 1! 
0960 1 ! EXTERNAL REFERENCES: 
0961 1! 
0962 1 
96 1 EXTERNAL re 
964 1 NED (8), ' TAB character 
Bees : RINTES : UNSIGN ED (8); ! Special escape character 
967 1 EXTERNA 
0968 1 CRDBLK : SNDXCM ! Command Line information block 
9 1 XPLBLK : $XPL_BLOCK ' Extended inden ing information block 
9 1 BUCKET : $BUCRED OARRAY C27, 27], ! Hashing buckets (first character of entry) 
bap : BOOKID;: ! Address of master index book ident string 
973 1 EXTERNAL ROUTINE 
974 1 SA ‘ ! Place data in work storage 
0975 ~«#1 DMPENT : NOVALUE; 
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OU 
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A } ZSBTTL "XOUT == Put away index item' 

af8 } GLOBAL ROUTINE XOUT (ENTRY_LENGTH, ENTRY_PTR, XTN, BAR_FLAG) : NOVALUE = 
980 1 !<+ 

2 1 ! FUNCTIONAL DESCRIPTION: 

9 5 1 Place an index or sub-index item into the index master storage 
2 ¢ : List in alphabetical order. 

3 $ | FORMAL PARAMETERS: 

38 1! ENTRY_LENGTH - Length of index entry text 

9 1} ENTRY_PTR - CHSPTR to index entry text 

990 1! XT - Transaction number 

349 ! } BAR_FLAG = Change bar flag 

0993 1! IMPLICIT INPUTS: 

0994 1! 
0995 1! CMDBLK = Command Line information block 

43 1! XPLBLK - Extended indexing attributes block 
o444 } CELL - Information about current position in List 
9999 i IMPLICIT OUTPUTS: 

1001 i None 

1908 1 | ROUTINE VALUE: 

bs: : COMPLETION CODES: 
1096 1 i = 
1008 SIDE EFFECTS: 
1010 1: Master index is built. 

1011 1°! 

1018 1 

ote BEGIN 

1918 LOCAL 

101 INT_HL 

1919 LAST ANS. 

i 0 SUBR_STG, 

1021 SUBX_CNT; 

1098 ; 

: : Is this trip necessary? 

1 6 iF .ENTRY_LENGTH EQL 0 THEN RETURN; 

1°28 ! 

' ; : Initialization 

1031 BEGIN 

1032 MAP 
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NDXOUT == Sort and store index entries 18-56 1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 29 
XOUT == Put away A item 1 ~3007 138% 94:95:98 RUNOFF ..SRCJNDXOUT.BLI; . Ay 
19 ? CELL : VECTOR CCSK_LENGTH); 
1035 INCR I FROM 0 TO CSK_LENGTH - 1 DO CELL C.1] = 0; 
13 ° END; 
1038 SUBX_STG = .ENTRY_PTR; ! Get address of index string 
: 4 INT_AL = .ENTRY_LENGTH; ! Get Length of index string. 
1041 STG_PTR = .SUBX_STG; 
ISh6 LAST_NB = cn 
1907 SUBX_CNT = 0; 
1$¢8 IF .XPLBLK CXPL$V_VALID] 
1308 THEN 
ih oe 
bo ! Attributes block is valid. Initialize user specified sort parameters. 
1051 IND a 
1936 SORT_STR = XPLBLK CXPLST_SORTI : SSTR_DESCRIPTOR (); 
1054 USER_SORT_LEN = .SORT_STR PS Then LENGTH): 
1055 USER-SORT_PTR = .SORT-STR CSTRSA-POINTER); 
1087 ELSE 
1058 USER_SORT_LEN = 0; 
1060 ; 
1061 Scan the entire character string 
1068 INCR I FROM 1 TO .INT_HL DO 
pee BEGIN 
1206 LOCAL 
Hs 4 CHARACTER; 
\ H CHARACTER = CHSRCHAR_A (STG_PTR); 
1071 } 
O76 Look for special handling 
1074 if .CHARACTER EQL RINTES 
1979 THEN 
1077 85 
1978 ? } Interpret escape sequences. 
1080 4 CHARACTER = CHSRCHAR_A (STG_PTR); 
1} 1 2 I= .] +1; 
1% 5 2 IF .CHARACTER EQL 2C*J' 
! 5 BEGIN 
Set up sub-index 
1 5 LOCAL 
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NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss- -0- so 
XOUT == Put away A Ttem 127808713 4 94:05:98 RUNOFF’ SRE NDKOUT OL 44 — B vb 
39 T_PTR : REF SXE_BLOCK; 
“1 tn Patil ! Skip null argument 


' 
Set up sort string 


SORT_AS (.SUBX_STG, CHSDIFF (.LAST_NB, .SUBX_STG), .SUBX_CNT); 
i) 
Look for entry 


FIND_POS (,SUBX_STG, CHSDIFF (.LAST_NB, .SUBX_STG), .SUBX_CNT, FALSE, 0); 
' 
Enter it if it is not already there 


if NOT .CELLCCS$V_IDNSJ 
INSERT_INX (.SUBX_STG, CHSDIFF (.LAST_NB, .SUBX_STG), .SUBX_CNT, 0, .BAR_FLAG, .ENTRY_LE 
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4 
Clear out sort string 


SORT_LEN = 0: 
SORT_PTR = Q; 

1 

: Skip over text 


SUBX_STG = .STG_PTR; 
LAST-NB = .SUBX"STG; 
SUBX-CNT = .SUBR_CNT + 1; 
CELL~CCS$V_IDNS] = FALSE; 

t 

Is there a sub-index list? 


T_PTR = .CELL CCSA_CURRI; 
IF .T_PTR CXESA_SUBX) EQL 0 
THEN | 
: Insert end of sub-index List 


nn INSERT_INX (0, 0, .SUBX_CNT, 0, .BAR_FLAG, .ENTRY_LENGTH, .ENTRY_PTR) 
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5 
: BEGIN 
33 Set pointer to head of sub List 
41 CELL CCSA_PREV) = .CELL CCSA_CURR]; 
4@ CELL ECSATCURR] = .T_PTR CXESA_SUBK) 
4 END 
44 END 
45 ELSE 
46 


LAST_NB = .STG_PTR 
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NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 31 
XOUT == Put away alee Sten 12-808- 1382 94:85:48 RUNOFF .SRCJNDXOUT.BLI; . a 
114 END 
114 ELSE 
114 IF .CHARACTER NEQ %C° ' THEN LAST_NB = .STG_PTR 
1151 END; 
11 : 
11 ' 
1 ¢ End of Line was reached 
1 6 SORT_AS (.SUBX_STG, CHSDIFF (.LAST_NB, .SUBX_STG), .SUBX_CNT); 
11 FIND-POS (.SUBR_STG, CHSDIFF (.LAST_NB, .SUBR STG), .SUBR CNT. TRUE, .XTN); 
i § INSERT_INX (.SUBX_SfG, CHSDIFF (.LAST_NB, .SUBX_STG), .SUBX_CNT, .XfN, .BAR_FLAG, .ENTRY_LENGTH, .ENTRY_ 
1160 END; 'End of XOUT 
-TITLE NDXOUT NDXOUT -= Sort and store index entries 
SIDENT \V04-000\ 
-PSECT $OWNS,NOEXE,2 
99000 CELL: .BLKB 16 
0010 SORT_STR: 
; 1200 
004CO SORT_PTR: . 
004C4 SORT_LEN: 
.BLKB 4 
004C8 USER_SORT_LEN: 
.BLKB 4 
004CC USER_SORT_ PTR: 
.BLKB 4 
.EXTRN DSRINDEX$_BADLOGIC 
-EXTRN DSRINDEX$~BADVALU 
.EXTRN DSRINDEXS—INSVIRMEM 
.EXTRN DSRINDEXS$~LINELENG 
-EXTRN DSRINDEXS~NOREF 
.EXTRN DSRINDEX$~OPENIN 
-EXTRN DSRINDEX$~OPENOUT 
-EXTRN DSRINDEX$~TOOMANY 
SEXTRN DSRINDEXS-VALERR 
-EXTRN DSRINDEX$~CANTBAL 
-EXTRN DSRINDEX$~CLOSEQUOT 
-EXTRN DSRINDEX$~CONF QUAL 
-EXTRN DSRINDEXS~CTRLCHAR 
-EXTRN DSRINDEXS$—DOESNTF IT 
-EXTRN DSRINDEX$~DUPBEGIN 
-EXTRN DSRINDEXS-EMPTYIN 
SEXTRN DSRINDEX$~1 GNORED 
-EXTRN DSRINDEX$~INVINPUT 
-EXTRN DSRINDEX$—INVRECORD 
-EXTRN DSRINDEXS-LASTCONT ‘ 
-EXTRN DSRINDEX$-NOBEGIN 
-EXTRN DSRINDEX$~NOEND 
-EXTRN DSRINDEX$-NOINDEX 
-EXTRN DSRINDEX$"NOLIST 
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00000000Vv FE 


00000000V_ EF 
23 
2 


OC AA 
50 


00000000V_ EF 
04 AA 


FF61 58 01 
00000000vV_ EF 


00000000V_ EF 
7E 
000G0000vV_ EF 


3; Routine Size: 285 bytes, 


Routine Base: 
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be DD 
5 a} 
eRe 
a DD 
10 AC OD 
of D4 
ts 
07 FB 
04c0 «6CA C7? 
7 0 
sf 
fs 
6A D 
08 49 Dd 
17 1 
08 AC OD 
56 DD 
10 AC ODD 
43 04 
5 td 
43 C 
07 FB 
12 11 
6A 00 
08 AO 00 
4 
03 13 
d? 00 
599 «FA 
2 8 
4 ¢ 
d2 Dd 
54 OD 
03 FB 
Oc AC OD 
1 0D 
4 6B 
4 0D 
05 FB 
08 AC OD 
56 bp 
oc AC 7D 
4 6B 
4 0D 
7 FB 
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AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXOUT ..BLI; 


3,R5> 
G 
INSERT_ INX 


1G PTR SUBX 118 
uBx XstG, LA T_NB 


nteLLst2 
ctl, a 
ENTRY_PTR 
BAR_FLAG 

=(SP) 

SUBX_CNT 

-(SP 

#7, INSERT_INX 


ELL, CELL+4 
T_PTR), CELL 


RACTER, #32 


“pike LAST_NB 
, #1, 17 5$ 


XZSTG, R2 
STG 
in SORT_AS 


FANCR2,RS> 
SUBK Ste 

ENtRY _PTR 

Re 


XTN, =(SP) 
nce ia 


IN INSERT_INX 


ae re 


ro 
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NDXOUT NDXOUT == Sort and store index entries Ib-5¢ “1984 01:04: AX-11 Bliss-32 V4.0-74 Page 34 
yOu-000 SORT_AS == Bulla sort string 1 30071382 94:03:48 RUNOFF .SRC JNDXOUT.BLI; : Pe 
; 359 1161 1 ZSBTTL ‘SORT_AS <= Build sort a 
: e1 1168 ! ROUTINE SORT_AS (I_PTR, I_LEN, LEVEL) : NOVALUE = 
: 1164 1} 
; es 1302 } FUNCTIONAL DESCRIPTION: 
: 365 1183 | This routine builds the sort string used to position the index 
; ? 1398 ! } entry in the index. 
; oe 1170 : } If the user specified a sort string then that string is used. 
; $7 1106 1! f (sonrouerren was epee tT tee on tne command Line, a sort string 
3 i a : s built from the input string. 
te » 1175 1! If /SORT=NONALPHA=IGNORE was specified on the command line, a 
; 374 1328 3 sort string is built if the first character in the input string 
3 6 iit } is not alphabetic. 
5 oF 179 1! Otherwise no string is built and the entry is positioned 
3 a 1339 : according to the text of the entry. 
; 80 1182 1 ! FORMAL PARAMETERS: 
s 3B) 11 1! 
; 3 1184 1! I_LEN = Length of input string 
3; we 1185 1! I-PTR = Pointer to ss a string 
; 384 1186 1! LEVEL = Subindex Leve 
; 385 a 1! 
; 386 1188 1°! IMPLICIT INPUTS: 
; «387 1189 1! 
3 6388 1190 1! XPLBLK - Extended index attributes block 
3; 6389 1191 1! CMDBLK - Command Line information block 
; 390 1138 3 USER_SORT_LEN = Length of user specified sort string if any 
; 14! 1332 ! USER_SORT_PTR = Pointer to user specified sort string if any 
; Bz 1132 : IMPLICIT OUTPUTS: 
; 395 1197 17! USER_SORT_LEN = Length of remainder of user specified sort string if any 
: 396 1198 1! USER_SORT_PTR = Pointer to remainder of user specified sort string if any 
3; 397 119) 3! SORT_PTR - Points to the sort pe if any 
3 4 1300 ! SORT_LEN - Is the length of the sort string 
: 400 1 4 1 ! ROUTINE VALUE: 
; 401 1205 1 ! COMPLETION CODES: 
; £38 1206 1! 
; 4 1205 1! None 
3: 404 1 $ 1! 
: 405 1 1 ! SIDE EFFECTS: 
3; 4 1 ; 1! 
3 $8 1 1! None 
: 408 1210 1 !-- 
: 409 1211 BEGIN 
: 410 1 \¢ 
3: 6411 121 LOCAL 
; $i¢ 1214 5 
: 41 1215 PTR; 
: 614 1 
3 «6415 121 SORT_LEN = 0; 
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rah phy Nm plied me Le 


-Sep-1 
SORT_PTR = CHSPTR (SORT_STR); 
IF .USER_SORT_LEN NEQ 0 
THE 
BEGIN 


User specified a sort string. 
| Get the next segment. 


SORT_PTR = .USER_SORT_PTR; 
WHILE .USER_SORT_LEN GTR 0 DO 
BEGIN 


LOCAL 
CH; 
CH_= CHSRCHAR_A (USER_SORT_PTR); 
USER_SORT_LEN = .USER_SORT_LEN = 1; 
IF .CH EQL RINTES 
THE 
BEGIN 
CH = CHSRCHAR_A (user ~SORT _PTR); 
CHSRCHAR_A (USERS PTR); 


USER “SORT. LEN = “USER: “SORT_LEN = 2; 
IF .CH EQL %C*J* THEN EXITLOOP; 
SORT_LEN = .SORT_LEN + 3; 

ND 


SORT_LEN = .SORT_LEN + 1; 


L 
Pp 
: ECTONE .CMDBLK CNDXSH_NONALPHA] OF 


EN = ; 

TR = .I-PTR; 

EL 

ET 

CIGNORE): 
BEGIN 


Ignore leading non-alphas 


FIRST_PTR = .PTR; 


AX=11 Bliss-32 V4.0-74 
5 RUNOFF .SRCJNDXOUT.BLI; 


! Get next character 
! One less character in string 


! RUNOFF escape sequence 


! Subindex sequence signals end of string 


! 3 more characters in sort string 


! 1 more character in sort string 
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F 14 
NDXOUT == Sort and store index entries 16-Sep-1984 01:04: AX-11 Bliss-32 V4.0-74 e 
SORT_AS == Build sort string 18-808 - 1382 94:05:48 RUNOFF. ReSNDXOUT BL 144 — i 
1275 FIRST_LEN = 0; 
£6 SCAN_PTR = .PTR; 
127 DECR I FROM .LEN TO 1 DO 
1279 4 BEGIN 
ae Oth, 
1 4 . 
! § 2 CH = CHSRCHAR_A (SCAN_PTR); 
! 5 2 IF .CH EQL RINTES 
! g BEGIN 
89 RUNOFF escape sequence 
31 LF gf IRST_LEN EQL 0 
: 38 ° BEGIN 
} Be ° Save pointer and length if first escape sequence seen 
1 39 . FIRST_LEN = .1; 
1298 FIRST-PTR = CHSPLUS (.SCAN_PTR, -1); 
' +4 END; 
1301 CHSRCHAR_A (SCAN_PTR); ! Skip rest of sequence 
1 0¢ 5 CHSRCHAR-A (SCAN-PTR); 
! B 4 Ls el - 2; ! Decrement Length remaining 
1305 4 
1306 5 BEGIN 
130% g IF LETTER (.CH) 
1308 THEN 
1309 6 BEGIN 
1310 6 ! 
} 1} ° Alphabetic character 
1 ig 6 if .FIRST_LEN EQL 0 
1314 § THEN 
: i 4 BEGIN 
1 i3 7 i No RUNOFF escape sequence was seen. 
! \8 4 Save pointer and Length. 
1320 7 FIRST_LEN = .I; 
1 i FIRST_PTR = CHSPLUS (.SCAN_PTR, -1); 
1 : 6 . 
! : 6 EXITLOOP; 
1 § ; ELSE 
1 FIRST_LEN = 0; 
1 8 4 ND; 
! 4 ; END; 
1331 IF .FIRST_LEN NEQ 0 


—_ 


<= 

3 
ov 
my» 


TAS == Build sort string 


14 
and store index entries 18-56 -1984 01:04: AX-11 Bliss-32 V4.0-74 P 7 
1 ~3007 138% 04:95:48 RUNOFF .SRCJNDXOUT.BLI; on id 


THEN 


a 
Maes SS 


WANNA 


CAFTER): 
BEGIN 


| Put leading nonalphas after 
if .LEVEL NEQ 0 
THE 
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BEGIN 


i Build a sort string for all but top level entries. 
! Top level entries are sorted after by examining the 
} nonalpha bucket Last. 


LOCAL 
SCAN_PTR; 


SCAN_PTR = .PTR; 
INCR I FROM 1 TO .LEN DO 
BEGIN 
LOCAL 
CH; 
CH = CHSRCHAR_A (SCAN_PTR); 
IF .CH EQL RINTES 
THEN 
BEGIN 
; RUNOFF escape sequence - skip over it 
CHSRCHAR_A (SCAN_PTR); 
CHSRCHAR-A (SCANPTR):; 
Te.j ¢ 2: 
END 
ELSE 
BEGIN 
| Have first character 
if NOT LETTER (.CH) 
BEGIN 
i Leading nonalpha 


i Make it sort after by building a sort string 
! which starts with ‘zzzz2' 
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OUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss- 4.0-74 
TAS == Build sort string 14 300-138 94:05:98 RUNOFFeSRE NoKOUT OL i. pote B 


es 


7 H 
CHSCOPY (4, CHSPTR (UPLIT (‘zzzz')), .LEN, .PTR, %C" ', .LEN + 4, CHSPTR (SORT_STR)) 


LEN = .LEN + 4; 
PIR = CHSPTR (SORT_STR); 


EXITLOOP; 
END; 


OOO0O000008d 


TRG BOD AHA ODO NONE UI O00 NA UNE WW AOD WRN RON Ooo Oo eee 


END; 
END; 
END; 
CBEFORE): 


i Sort nonalphas before. 
Since this is the default, no action is required. 


1 

i 
TES; 
IF .LEN NEQ .IJ_LEN 
THE 


Save pointer and Length of resulting string 
SORT_LEN = .LEN; 
SORT_PTR = .PTR; 
END; 
IF NOT .CMDBLK CNDX$V_WORD_SORT] 
BEGIN 
Letter by letter sort - remove whitespace. 
CAL 
RINTES_PTR, 
RINTES_LEN, 
SCAN_PTR; 


mrt 


a 

PTR: 

SORT_PTR = CHSPTR (SORT_STR); 
L = Q; 


INCR I FROM 1 TO .LEN DO 
BEGIN 
 . 


em ek a a ad od od dd 8 2 dt 


BEE EE PANINI IRININIPININPININID 4 2 OS | 2QOOOOOOCOCOCO 


7 
7 
6 
BEGIN 
i A sort string has been built 
4 
4 
4 
& 
4 


me ee a ee em ed ed nd ed ad ed ot = = 8 = 2 = = 3) I I I 


CH = CHSRCHAR_A (SCAN_PTR); 
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XOUT NDXOUT == Sort and store index entries 1b-5¢ =1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 39 y 
YOu-000 SORT_AS == Build sort string 1 730071382 94:05:98 RUNOFF .SRC NDKOUT BL isi . (4) vO 
> 646 Wang 4 3] 
: 665 1447 4 IF .CH EQL RINTES : | 
} 8 1278 4 THEN $1 
; 64 144 BEGIN 3] 
; 648 1450 ! 3 1 
3 634 16 1 | RUNOFF escape sequence. : 
3 o2) 14 5 IF_.RINTES_LEN EQL 0 | 
3; © g 1454 THE | 
; 65 102? 6 BEGIN 3 1 
3 654 14 § 6 ! sj 
: $2? \o2 6 ! Not a multiple sequence. 31 
: 696 1438 6 : Save pointer to beginning of output sequence. : 
; 658 1460 6 RINTES_LEN = .SORT_LEN; 31 
; 659 1461 § RINTES-PTR = .SORT-PTR: 3] 
; 660 1296 END; $1 
; 661 146 2 s 1 
3 066 1464 CHSWCHAR_A (.CH, SORT_PTR); $1 
; 66 1465 5 CHSWCHAR-A (CHSRCHAR_K (SCAN_PTR), SORT_PTR); 31 
> 664 1466 5 CHSWCHAR-A (CHSRCHAR-A (SCAN-PTR), SORT-PTR): 31 
; 665 1467 3 SORT_LEN-= .SORT_LEN™+ 3; & 
o 666 1468 Iz .J @ 2: 3 1 
3; 667 1469 5 END 31 
; 668 1470 4 ELSE 3 1 
3; 669 1471 5§ BE 3 1 
; 670 10%6 6 IF (.CH EQL %C° *) OR (.CH EQL TAB) OR (.CH EQL %C'=") 3 1 
; 671 1473 5 THEN 31 
s 67 1474 6 BEGIN s 
; 67 1475 6 ! 3 1 
3 674 1476 6 ! Whitespace. 31 
3; 675 1477 6 ! 31 
H 676 1478 6 IF_.RINTES_PTR NEQ 0 $1 
3 7 1479 6 THEN $1 
; 678 1480 7 BEGIN 3 1 
3; 679 1481 7 ! 31 
: 680 1086 7 ! Whitespace was emphasized. 3 1 
: o3) Hb f } Remove emphasis from output string : | 
; $88 1485 7 SORT_PTR = .RINTES_PTR; 31 
3; 684 1a58 7 SORT_LEN = .RINTES_LEN; 31 
3 5 1487 7 5 1 
3; ¢ 1488 7 RINTES_PTR = 0; 3 1 
: 687 1489 7 RINTES-LEN = 0; 31 
; 6 14 6 END; = 
3; 689 1491 g END $1 
; 690 1436 ELSE | 
; 691 1493 6 BEGIN 3 1 
3; 69 1494 6 ! 3) 
3; 69 1495 6 ' Some other character 3 | 
3 694 + 6 ! eB 
; 695 1497 6 CHSWCHAR_A (.CH, SORT_PTR); 3 | 
: 696 1498 6 SORT_LEN= .SORT_LEN ? 1; 3 1 
; 69 1499 6 | 
3; 698 1500 6 RINTES_PTR = 0; 2 
3 99 1501 g RINTES_LEN = 0; 3 | 
; 700 1502 END; 2 
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XOUT NDXOUT == Sort and store index entries b- -1984 01:04: - - -0- 
yOu-000 SORT_AS == Build sort string 7 . 300-1382 94:05:98 RUNOFFCSRE NDKOUT BL 42 ve (8 
; 701 1503 4 ND; 
Bo so 
: 704 1 SORT_PTR = CHSPTR (SORT_STR); 
; f 5 : 0 END; 
: 70 1309 


-PSECT SPLITS,NOWRT,NOEXE,2 
7A 7A 7A 7A 00000 P.AAA: .ASCII \zzz2z\ 3 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 SORT_AS:.WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 1162 
SE 04 C2 90008 SUBL2 #4, SP : 
00000000" EF D4 9000 CLRL  SORT_LEN : 1217 
00000000" EF 00000000' EF 9€ 0000B MOVAB SORT-STR, SORT_PTR + 1218 
00000000' EF p 90016 ist USER-SORT_LEN + 1220 
00000000" EF 00000000' EF 06 O001E MOVL § USER_SORT_PTR, SORT_PTR t 1227 
0000000u" EF D5 00029 1$ TSTL USER-SORT_LEN : 1229 
01 14 0002F BGTR $ : 
04 00031 RET : 
50 00000000" FF 9A 00032 2$ MOVZBL @USER_SORT_PTR, CH : 1235 
00000000" EF 0g 00039 INCL USER_SORT_PTR : 
00000000' FF D 0003 DECL § USER-SORT“LEN : 1236 
000000006 8F 0 D1 00045 CMPL (CH, MRINTES : 1238 
50 00000000" FF 9a OO0dE ROVZSL USER_SORT PTR, CH ; 1242 
00000000" EF D6 00058 INCL USER_SORT_PTR : 
00000000" EF Dg 00058 INCL. USER SORT~PTR + 1243 
00000000" EF : C2 00061 SUBL2 #2, OSER_SORT_LEN t 1244 
0000004A SF 50 01 90968 CMPL cH #74 + 1246 
01 12 O06F BNEG 4 ; 
04 00071 RET ; 
00000000" EF 03 CO 007g 3$: ADDL2 #3, SORT_LEN + 1248 
AE 11 0007 BRB : 1 38 
00000000" EF 06 007B 4$: INCL § SORT_LEN + 1251 
A6 1 BRB i$ 31 29 
5 08 ac OD 5$: MOVL I_LEN, LEN : 1 
é 04 AC p 0 VL I7PTR, P : 1259 
30 000000006 FF 0 CVTWL  CADBLK+8, RO : 1261 
0 0 e 9 9 Pu séaRO, #3 > 1264 
F : 9 BNEQ 148 ; 
51 7 00 0009 VL PTR, _FIRST_PTR + 1274 
4 D4 OO9A CLRL FIRST_LEN + 1275 
52 7 pO 9C MOVL PTR, SCAN_PTR : 1276 
01 A F OF MOVAB 1(R6), I : 1278 
52 1 A RB 12$ ; 
53 : 9a OOOAS 68: VZBL (SCAN_PTR)+, CH ; 1283 
000000006 &F ; p} Ag CMPL cH, #RINTES : 128 
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AX-11 Bliss-32 V4. 


RUNOFF ..SRC 


EoFenct9Re 01:96:24 y 


oo 


} and store index entries 
ld sort string 


SORT_AS == Bu 


NDXOUT == Sor 
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NDXOUT NDXOUT == Sort and store index entries 6-5 -1984 04:24 AX-11 iss- -0- 
VOeeb00 SORT_AS == Build sort string Het aH Ce neti oh hy 


os 


on 


59 #4, RY 
20 67 LEN, (PTR), #32, R9, (RB) 


#4, LEN 
RT_STR, PTR 


35 00000000° 
5A 
AC 


OO 


¥ Nw3w— 
Nui OONM NOCD —OOw 


000000006 


RINTES_LEN 
PTR, SCAN_PTR 
SORT_STR, SORT_PTR 
SORT-LEN 


00000000° 


a! a a at wd aes nt 
SP PLES FES & 
SP PW 


8$ 
(SCAN_PTR)+, CH 
. #RINTES 
RINTES_LEN 

27$ 


SORT_LEN, RINTE 
SORT-PTR, RINTE 
CH, SSORT_PT 
SORT PTR 
(SCAN_PTR)+, @SORT_PTR 


0 
(SCAR_PTR)+, @SORT_PTR 
SORT 
#3, SORT_LEN 
#2, 1 


000000006 


00000000' 
00000000" 


00000000° 
00000000' 
' 00000000" 


S_LEN 
S_PTR 
00000000" : 
00000000" 
00000000" 


00000000" 


CH, #32 
H, #TAB 
$08 

4 #45 
RINTES_PTR 
33$ 


RINTES_PTR, SORT_PTR 
RINTES-LEN, SORT-LEN 


CH, @SORT_PTR 
ORT PTR 


000000006 


0800008 . 
00000000' 


00000000° 
444 4 
0000000" 


3 01 
00000000" EF 00000000' 
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MAA EM N= NIU § NOOO VIWO OM COM OMUAMMOUSLUOLUVMMAIn Munnouwmomn 


FF6D LEN, #T, I 


6$ 
AB SORT_STR, SORT_PTR 


y+ > + > ee + 4 <9 9 9 9 (OO9 O09 O90 OO 9 | 9 | 9 O90 9 OU NIOMO SO -9O 70M NO 


; Routine Size: 606 bytes, Routine Base: S$CODE$ + 011D 
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-- Sort and store index entries 16-Sep-1984 04:24 AX-11 Bliss-32 V4.0-74 
S == Locate position for insertion 12-808-1382 94:95:98 RUNOFF SRC NDLOUT OL. 


z 
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ZSBTTL ‘FIND_POS == Locate position for insertion’ 


ROUTINE FIND_POS (STG_PTR, STG_LEN, SUB_CNT, LAST, XTN) : NOVALUE = 


'e4 
' FUNCTIONAL DESCRIPTION: 

ocate the reper position in the master List for piecing a new 
tem. Also make sure the item is not a complete duplicate of an 
existing entry. 


FORMAL PARAMETERS: 


BEGIN 
Have a sort string to use 


LINE_PTR = .SORT_PTR; 
LINE-LEN = .SORTILEN; 


E 
ELSE 
BEGIN 


FIND 

151 

HE 

1318 

1514 

Wg | 

eg | 

PE 

ae 

15 § i STG_PTR = Address of input text. 

1524 : STG_LEN = Length of input text. 

1525 : SUB_CNT = Sub-index level (0 to n) 

1526 : AST - TRUE if this is the last call to FIND_POS for this entry 
13 } XTN - Transaction number if LAST = TRUE 
13 3 { IMPLICIT INPUTS: 

1531 i CELL - Characteristics of current position in List 
15 ¢ : SORT_LEN - Length of sort string if any 
1 ? : SORT_PTR - Pointer to sort string if any 
13 3 IMPLICIT OUTPUTS: 

1330 CELL - set up for insertion 

1539 1 ! ROUTINE VALUE: 

130 COMPLETION CODES: 

134¢ NONE . 

1344 i SIDE EFFECTS: 

1546 1 | NONE 

1547 ! 

1345 

1329 BEGIN 

155 LOCAL 

1388 LINE_PTR, 

1328 LINE_LEN; 

1386 IF .SORT_LEN NEQ 0 

155 THE 

1338 

132 

1560 

139) 

1 $8 

1564 

1565 

1566 
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XOUT NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 44 
VOa-000 FIND_POS == Locate position for insertion 1 730071382 93:95:98 RUNOFF .SRC NDKOUT BL 124 . 3 
aS 1567 } 
3 16 } &3 no sort string - use entry text 
: 769 139 LINE_PTR = .STG_PTR; 
3; 770 1571 LINE_LEN = .STG_LEN; 
3 44 : if END; 
; tg 1574 
: 46 ! 0 } Skip the bucket positioning for sub-indexes 
: 176 1 i) . If .SUB_CNT EQL 0 
: Oe 1338 THEN EGIN 
: 779 1580 
3; 780 12B9 ! The first character that is not a special sequence determines 
3 a} 1386 the bucket number. 
: re 1584 OCAL 
3; «784 1585 BUCKET_NUMBER, 
; «785 1586 SUB_BUCKET; 
: 786 1587 
3 A tA 1288 BUCKET_NUMBER = FIND BUCKET (LINE_LEN, LINE_PTR); 
; 789 1390 IF, BUCKET NUMBER NEQ 0 
: 791 159 
s 79 1398 ! Use the second character in the string to determine the 
; 79 1594 ! sub-bucket number unless the first character in the string was a 
: £38 1392 } nonalphabetic. 
; 196 1397 cL se UB~BUCKET = FIND BUCKET (LINE_LEN, LINE_PTR) 
: 798 1599 
; 799 1600 ! Nonalphabetic characters are always sorted using a single bucket 
3 rt bt } because the ‘squared bucket’ algorithm does not work for them. 
; 80¢ 1608 §UB_BUCKET = 0; 
> 804 1605 
: Boe 1988 Now remember all of the information needed for future use. 
: 807 1608 CELL CSA_HEAD] = BUCKET C.BUCKET_NUMBER, .SUB_ BUCKET); 
> 808 1609 CELL CC$ATCURR) = .BUCKET C.BUCKET_NUMBER, .SUB BUCKET); 
: 809 1919 CELL CCSA_PREV) = 0; 
: 810 1611 CELL CC$VZIDNS) = FALSE; 
3 1 + a END; 
: ig 1614 ! 
3 \ 191? Now find the proper position for insertion 
oe ie 
: 818 1819 
: 19 1620 LOCAL 
: 0 1621 CUR_CELL : REF S$XE_BLOCK; 
: 1 16 § 
; 2 16 ! 


SS 
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NDXOUT NDXOUT <= Sort and store index entries 16-50 1984 01:04: AX-11 Bliss-32 V4.0-74 P 
v04-000 FIND_POS == Locate position for insertion 1 7300-1382 94:05:98 RUNOFF .SRCINDXOUT.BLI; er ($3 
: ? 16 é | Point to data in storage 
; i § CUR_CELL = .CELL CCSA_CURRI; 
: 1 
: : 8 1 ; If this is the last item, return current position 
; 5 . 1 if (CUR _CELLCXESA_NEXT] EQL 0) AND (.SUB_CNT EQL -CUR_CELL CXESH_SUBC]) THEN RETURN; 
: 16 
; : : 19 ¢ See if we are at the correct position for an insertion 
; 5 18 $ if .SUB_CNT GTR .CUR_CELL CXESH_SUBC] THEN RETURN; 
; é 3 19 ; IF ENTRY_CMP (.STG_PTR, .STG_LEN, .LAST, .XTN, .SUB_CNT) THEN RETURN; 
; g78 1649 Mak till int at iginal dat 
; ' Make sur 
se eee e sure we s point at original data 
3 Beg 164 CUR_CELL = .CELL CCSA_CURR); 
3 a 1644 
3 44 1645 ! 
: 845 1966 ' Advance to next location 
3; 846 164 ! 
3; 847 1648 CELL CCSA_CURR] = .CUR_CELL CXESA_NEXT); 
; 848 1649 § END; 
3 6849 1650 
; 850 1651 1 END; 'End of FIND_POS 


007C 00000 aera” 


-WORD Save R2,R3,R4,R5,R6 ; 1512 
56 000000006 EF 9E 0000 MOVAB BUCKET, R6 ; 
55 90000000) EF 9E 00 MOVAB FIND BUCKET, RS ; 
24 00000000' FF 9€ 0001 MOV CELL; R4 ; 
F 8 C2 0001 SUBL2 #8, SP ; 
5 04c4 C4 D 1A MOVL  SORT_LEN, RO ; 1556 
0B 1 1F BEQL ; 
6E 04C0 g° D 1 MOVL SORT_PTR, LINE_PTR 3 1368 
04 AE 0 b0 6 MOVL RO. CINE_LEN : 156 
04 1 A BRB ; 1336 
66 04 AC 7 ¢ 1$: MOVa = STG_PTR, LINE _PTR : 157 
C AC D 28: MOVL “CNT, R : 1577 
3 1 BNEQ 3 
f pd PUSHL SP ; 1588 
08 AE OF PUSHAB LINE_LEN ; 
$5 F B CALLS #2, FIND BUCKET ; 
2 D MOVL RO, BUCKET_NUMBER ; 
D1 BEQL «= 3 ; 1590 
E pd 4 PUSHL SP : 1597 
08 AE 9F 0004 PUSHAB LINE_LEN ; 
65 F 4 CALLS #2, FIND BUCKET ; 
1 D 48 MOVL RO, SUB_BUCKET ; 
1 4E BRB 4 ; 


NDXOUT == Sort and store index entries 
FIND_POS <= Locate position for insertion 
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; Routine Size: 


SAINI NA AAAA MUNIN 
NW BON MO OUPUIM OOTVO 


o.. - 
“Eep- 


rw 
wow 


ww 
wn 
oe 


o 
wn 


AX=11 Bliss-32 V4.0-74 
RUNOFF ..SRC JNDXOUT .BLI; 


, #16, 24(CUR_CELL), 
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T == Sort and store index entries Ib-5e -1984 01:04: AX-11 Bliss-32 V4.0- 
BUCKET == Get bucket number 1 =300- 1387 94:85:88 RUNOFF. SRCINDXOUT BL 


ZSBTTL "FIND_BUCKET == Get bucket number’ 
ROUTINE FIND BUCKET (LEN_A, PTR_A) = 


FUNCTIONAL DESCRIPTION: 


This routine is called to determine the bucket number of the first 
character in a string which is not a special sequence 


i 
i 
i 
1 
| FORMAL PARAMETERS: 
i LEN_A = Address of a variable which contains the gengts of the string 
! The value is updated fo reflect the number of unscanned 
! characters in she str ng 
: PTR.A = Address of a variable which contains a CHSPTR to the string 
! The value is upéetee to point to the first unscanned 
character in the string. 
IMPLICIT INPUTS: 
None 
; IMPLICIT OUTPUTS: 
None 
i ROUTINE VALUE: 
COMPLETION CODES: 
i Returns a value from 0 to 36 indicating the bucket number. 
(0 = nonalpha, 1 =A, ... 26 = 2) 
SIDE EFFECTS: 
} None 

BEGIN 

LOCAL 

BIND 

EN = .LEN_A, 
PTR = .PTR_A; 
CH = 0; 


WHILE .LEN GTR 0 DO 
BEGIN 


| Get the first character that is not a special sequence 
CH = CHSRCHAR_A (PTR); 
LEN = .LEN - T; 


IF .CH EQL RINTES 
THEN 
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UT == Sort and store index entries 16-5 -1984 04:24 AX-11 iss- 4.0-74 
BUCKET == Get bucket number 1 ~300n 138% 94:05:98 RUNOFF SRESNDMOUT  O1 fs tae (65 


BEGIN 
Skip special sequence 
CHSRCHAR_A (PTR); 


’ $& 
se 


a ed ke aed 2d od od 


Using the first non-special character, figure out which index 
bucket is the right one to look into. Buckets 1 through 26 are 
alphabetic, and all other characters belong in bucket 0. 


— (IF (.CH GEQ ZC°A*) AND (.CH LEQ %C°Z") THEN (.CH = %C'A* + 1) ELSE 0); 


Se Se Ge Ge Ge Oe Se Ge Se Ge Ge Se Ge Ge Se Se Ge Se Se See Sete se tetse 
WOOODODOOOOVOODODODOVOOVOCOOOOOOOOO 

ee ee ee ed ed ed od od ed wd Wd od mar 4 
NNNNNNNNNNNNNNNNINNINSNNNNNINININSINN 
WWW RonoNonononononond 2 3 3 SS 


MEUM OVDONAUES WN "OO ONOULSWNO 
= PPININIPINININIWA ES FEL SLEW SLL LLL SE 


4 CHSRCHAR-A (PTR); 

5 LEN = .LEN = 2; 

3 ELSE 

8 BEGIN 

9 Some other character 
3 IF LOWER_LETTER (.CH) THEN CH = UPPER_CASE (.CH); 
4 EXITLOOP; 

5 END; 

5 END; 

8 e 

9 

0 

4 

5 


WALAWAAWAIAIRIPYPINIPONYPONPYNNY 2 2 OS OS OS SS 


0004 00000 FIND_BUCKET: 
-WORD Save R2 


: 1653 

51 04 aC DO 00002 MOVL  LEN_A, R1 + 169% 

50 D4 00006 CLRL H : 1697 

61 D3 0008 1$: TSTL (RI) : 1699 
5 1 QO0A BLEQ : 

52 08 Be dO 0000 MOVL  a@PTR_A, R2 : 1704 
50 62 9A 0001 MOVZBL (R2)> CH : 
08 BC 06 0 1 INCL a@PTR_A : 

61 D 16 DECL  ¢R1) : 1705 

000000006 8F 50 D1 18 CMPL cH, #RINTES : 1707 
0B : 1F BNEQ $ : 

08 BC D 1 INCL  @PTR_A : 1713 

BC D 4 INCL  a@PTRTA : 1714 

61 C 7 SUBL2 2. TR1) : 1715 

bf 1 A BRB 1 3 1702 

00000061 = 8F D4 2$ CMPL cH, #97 : 1722 
0000007A_ =F : D1 CMPL cH #122 : 
. et a aoa : 

00000041 &F of if 3$ CMPL CH, #65 : 1734 
9 00048 BLSS 4$ : 
0000005A BF D1 OO04A CMPL CH, #90 : 
14 00051 BGTR 4$ : 


Ss 


vO4=000 FIND.BUCKET <= Get bucket number Petia 73:83:93 ERUnor FSR INDXOUT BL 4 Sate 


50 CO 3=— AO 3 ; peyAs -64(RO), RO 3 
50 b4 8 4$: CLRL = RO : 
4 A RET 3; 1735 
; Routine Size: 91 bytes, Routine Base: S$CODES + O41A 
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NDXOUT == Sort and store index entries 18-5¢ 1984 01:04: AX-11 Bliss-32 V4.0-74 Page 50 } 
INSERT_INX == Insert index item into List 1 730071382 94:09:98 RUNOFF. REINDXOUT.BLI; 5 vou 
17 $ } ZSBTTL "INSERT_INX <= Insert index item into List’ : 
i 8 | ROUTINE INSERT_INX (STRING, LNGTH, SUB_CNT, XTN, BAR, ENT_LEN, ENT_PTR) : NOVALUE = ; } 
1740 1 !+4 : 3 
oR! ; FUNCTIONAL DESCRIPTION: : 
1248 1 Insert an index item into the index List. : 
1245 FORMAL PARAMETERS: ; 
1709 i STRING = CHSPTR to the string associated with the item. 3 ] 
1746 1! (zero is allowed). | 
1749 1! LNGTH = Length of the passed string. 3 | 
1750 1! SUB_CNT = Sub=index level of item (0 to n) | 
1751 1! XTN - Transaction number of the page associated with this 3 | 
1036 1! index item. | 
1755 1! BAR - Change bar flag 3 1 
1754 1! ENT_LEN = Leng h of whole index entry 3 | 
Te? : ENT_PTR = CHSPTR to whole index entry string : 
1797 1 { IMPLICIT INPUTS: : | 
1759 1: CELL - Information table about current position in List. 21 
1760 1! BOOKID = Master index book ident string address | 
1761 1! SORT_LEN= Length of sort string if any 3 1 
1766 } } SORT_PTR= Pointer to sort string if any : } 
1764 i IMPLICIT OUTPUTS: i] 
COE | esledagm : 
1768 1 | ROUTINE VALUE: 31 
1769 1 | COMPLETION CODES: i] 
wri 1} NONE 3] 
1778 i SIDE EFFECTS: | 
1775 1} NONE : | 
1776 1! ; 
178 1 i 
1779 BEGIN 3 | 
1780 LOCAL 3] 
1781 XMREF : $XM_BLOCK; 2] 
i : 
1784 Build book reference entry ; } 
1786 XMREF CXMSA_LINK] = 0; : 
17 XMREF CXMSA~BOOK) = .B00KID; : | 
5 3 ! : | 
1 Check for existing entry : 
1792 IF .CELL CCS$V_IDNSJ 31 
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NSERTINX == ‘Insert index item into List Ye-Sepm198¢ 14:08:93 ERUnoFRSRESNOOUT BL IT 2} vot 
3 
2 BEGIN 
; 


THEN 
Identical string 


Get current cell 
ME_TEMP = .CELL CCSA_CURR); 


1 
Get first entry in book List chain 


XM_TEMP = .XE_TEMP CXE$A_BOOK_LIST); 


REPEAT 
BEGIN 


i Walk book List chain until we either find a reference to 
the current book or until the end of chain 


IF .XM_TEMP CXMSA_BOOK] EQL .BOOKID THEN EXITLOOP; 
ee tated CXMSA_LINK] EQL 0 

BEGIN 

End of chain - insert a new book reference 


XM_TEMP CXMSA_LINK] = SAVDAT (XMREF, DS_XM_ENTRY, XMSK_LENGTH); 
EXTTLOOP; 


END 
ELSE 
yp AMATEMP = -XM_TEMP CXMSA_LINK2; 


IF _.XTN NEQ 0 
THE 


ee ee ee em ee ee em ee ee a ee ed ad ed ed dd dd dd dd od 8 od do od dd _ 
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5 BEGIN 
a There is a page pointer, so attach it. 
839 LOCAL 
i? XX_TEMP : REF $XX_BLOCK; 
é IF -XE_TEMP CXESA_REF] NEQ 0 
i goers 
rt] Entry has references 
bes LOCAL 
9 RANGE_BOOK, 


a 
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-INX == Insert index item into List 
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RUNOFF .SRCJNDXOUT.BLI; 
RANGE ACTIVE; 

RANGE ACTIVE = FALSE; ! Have not seen a BEGIN yet 

RANGE BOOK = 0; 

XX_TEMP = .XE_TEMP CXESA_REF]; |! Get the start of the chain 


REPEAT 
BEGIN 


Find the chain end 
XX_TEMP = .XX_TEMP; 
IF_.XX_TEMP CXX$V_BEGIN] 
THE 
BEGIN 
Beginning of page range 


RANGE_ACTIVE = TRUE; 
ares BOOK = .XX_TEMP CXX$A_B00KI; ! Save book identifier. 


IF .XX_TEMP CXX$V_ENDJ 
OR -XXITEMP CXXSA_BOOK] NEQ .RANGE_BOOK 
I 


i a range ends when either an END is encountered 
} or when we switch books 
RANGE_ACTIVE = FALSE; 


! 
: Check for end of chain 


IF .XX_TEMP CXXSA_LINK] NEQ 0 
XX_TEMP = .XX_TEMP CXXS$A_LINK] 
ELSE 
EXITLOOP; 
END; 
IF .RANGE_ACTIVE 
THE 
BEGIN 
Saw a BEGIN with no END 
if XPLBLK CX¥PL$V_VALIDJ AND .XPLBLK CXPL$V_BEGINI 
BEGIN 
Have a BEGIN inside a BEGIN 


LISS (BLISS32) 


a ee ee ee a ee ee ee a a el ee ee ee ee a ee ee ed ad ed dd 
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! Signal errors for BLISS32 


BEGIN 
Entry has no references. 
IF .XPLBLK CXPL$V_VALID] AND .XPLBLK CXPL$V_END] 
BEGIN 
Have an END with no BEGIN 
ZIF ZBLISS (BLISS32) 


OOOODOOOO0OD 
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NDXOUT NDXOUT == Sort and store index entries 1b-5e -1984 04:24 AX-11 Bliss-32 V4.0-74 
Vou-000 INSERT_INX == Insert index item into List 12-80-1382 95:09:98 RUNOFF . SRC NDKOUT OL. Arne 3 
: 110 1907 
3 110 1908 SIGNAL (INDEX$_DUPBEGIN); 
21111 U 1910 7 XELSE 
4 1113 u 1911 7 Use $XPO_PUT_MSG otherwise 
: 111 U 1916 7 $XPO_PUT_MSG (SEVERITY = WARNING 
2111 u 1913 7 STRING = ‘duplicate .XPLUS (BEGIN) -- inserted as .XPLUS ()"); 
$111 u 1914 7 
: 114 1915 7 XF1 
: W148 1319 5 DMPENT (.ENT_LEN T_PTR) 
° . L ee N : 
> 1119 1918 7 XPLBLK CXPL$0_BEGIN] ="FALSE; 
: 1120 1919 6 END; 
; 1 19 9 END 
:11 19 é a, 
: i ¢ 4 ? 5 Have no unmatched BEGIN's 
: 1126 1955 3 if .XPLBLK CXPL$V_VALID] AND .XPLBLK CXPL$V_ENDJ 
: 1188 1959 & Ag 
: 1129 1928 6 ec 
; Es \° 2 ? Have an END with no BEGIN 
: 113 L 1931 6 XIF %BLISS (BLISS32) 
; 1187 1936 3 ZTHEN ! Signal errors for BLISS32 
3 1135 1934 : SIGNAL (INDEX$_NOBEGIN); 
: 1137 U 1936 6 XELSE $XPO_PUT_M herwi 
4138 y 198? 6 Use O_PUT_MSG otherwise 
: 1139 U 1938 6 $XPO_PUT_MSG (SEVERITY = WARNING, 
: Be 2 ? STRING = '.XPLUS (END) with no .XPLUS (BEGIN) -- inserted as .XPLUS ()"); 
gh eh 
: 1164 1908 é DMPENT (.ENT_LEN, .ENT_PTR); 
3 1145 1944 6 XPLBLK CXPLS0_END] = FALSE; 
WS 13 oy 
Wg iS : 
+ 1480 ot Add new pointer to entry and update it in memory 
3 1133 30 ; XX_TEMP CXXSA_LINK] = INSERT_REF (.XTN); 
: 115 1952 4 ELSE 
3: 1154 1 2g 
: 1155 1954 
ot} ee 
; 1138 1 25 
> 1159 1 38 
: 1160 1959 6 
He Be 
: 1108 1 g 
5; 1164 1 6 
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NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 54 ND) 
INSERT_INX == Insert index item into List 12286-1382 93:09:98 RUNOFF .SRC JNDXOUT .BLI; ’ 3} v04 
1964 6 XTHEN ! Signal errors for BLISS32 : 
1966 : SIGNAL (INDEX$_NOBEGIN) ; 3 | 
196 6 ELSE ! Use SXPO_PUT_MSG otherwise 
1996 & $XPO_PUT_MSG (SEVERITY = WARNING, 3 | 
197 6 STRING = '.XPLUS (END) with no .XPLUS (BEGIN) == inserted as .XPLUS ()"); : 
ie gt 3 
1975 6 OMPENT (.ENT_LEN, .ENT_PTR); 3 
197% ¢ XPLBLK CXPL$0_END) = FALSE; : | 
197 END; 3] 
a8 3 . q 
1380 Point entry to reference and update it in memory. : 
198¢ 5 XE_TEMP CXESA_REF] = INSERT_REF (.XTN); 3 | 
ie = : 
1985 3 END; 31 
1986 END $3] 
1987 ELSE 31 
1988 BEGIN : 
Hb a4 String is different, insert new string : 
199¢ LOCAL 3 1 
199 EF_PTR, 3 1 
1994 LAST_CELL, : 1 
1995 NEXT-CELL, 31 
1996 TEMP : REF $XE_BLOCK, 3 | 
1997 TEMP1 3 | 
1998 TEMP_CELL : $XE_BLOCK; 31 
2000 | i 
$604 i Get Links to chain 3 1 
Oe ! $3 
00° TEMP = .CELL CCSA_CURRI; | 
005 IF ,SUB_CNT EQL .TEMP CXESH_SUBC) : 
007 4 BEG! 3] 
008 4 NEXT_CELL = .CELL ccsA CURR); 3) 
009 4 LASTICELL = . TEMP CXESA_PREW) 3 
910 $ END : 
ig 4 BEGIN 2 | 
13 4 NEXT_CELL = 0; 2 | 
14 4 LASTCELL = .CELL CCSA_CURR 2} 
Bi? END; e | 
O17 IF .XTN NEQ 0 : | 
18 THEN 3 | 
91 4 3 | 

20 4 : 
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15 
VEleoctgts 94:04:94 Yatadt eLieaa gz, ve-t7 
Have a page reference 
nee CXPLSV_VALID] AND .XPLBLK CXPLSV_END] 

BEGIN 


Have an END with no BEGIN 


! Signal errors for BLISS32 
SIGNAL (INDEX$_NOBEGIN); 
! Use $XPO_PUT_MSG otherwise 


$XPO_PUT_MSG (SEVERITY = WARNING, 
STRING = *.XPLUS (END) with no .XPLUS (BEGIN) -- inserted as .XPLUS ()"); 


DMPENT (.ENT_LEN, .ENT_PTR); 
XPLBLK CXPL$0_ENO) = FALSE; 


REF _PTR = INSERT_REF (.XTN); 
END 


ELSE 
REF_PTR = 0; 


’ 
Start to set up new entry 


«LAST_CELL; 
«NEXT CELL; 


=a 
L CXESH-SUBC) = .SUB_CNT; 
= — 


EL 
TEMP-CELL CXESV— BAR: 
TEMP~CELL XESATREFS = .REF_PTR; 
TEMP~CELL CXES$A~SUBX] = 0; 
TEMP~CELL CXESA~BOOK_LIST) = SAVDAT (XMREF, DS_XM_ENTRY, XMSK_LENGTH); 


: Remember text string 
if _.STRING NEQ 0 
TEMP_CELL CXESA_TEXT] = SAVDAT (.STRING, DS_X_STRING, .LNGTH) 


ELS 
TEMP_CELL CXESA_TEXT] = 0; 


4 
: Save sort string if there is one 


iF .SORT_LEN NEQ 0 
TEMP_CELL CXESA_SORT_AS] = SAVDAT (.SORT_PTR, DS_X_STRING, .SORT_LEN) 
TEMP_CELL CXESA_SORT_AS] = 0; 
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=- Sort and store index entries 1 
INX == Insert index item into List 1 


! Now put away the entry proper 


415 
rae 


198 opt Bliss-32 V4.0-74 


5 RUNOFF ..SRC JNDXOUT.BLI; 


TEMP1 = SAVDAT (TEMP_CELL, DS_X_ENTRY, XESK_LENGTH); 


' 
Link to previous entry 


if .LAST_CELL NEQ 0 
THEN 


BEGIN 

rEMP = .LAST_CELL; 

IF .SUB_CNT NEQ .TEMP CXESH_SUBC) 
TEMP CXESA_SUBX] = .TEMP1 
TEMP CXESA_NEXT] = .TEMP1; 


END 
ELSE | 


. Head of List 
.CELL CCSA_HEAD] = .TEMP1; 


Link to the following cell 
iF _.NEXT_CELL NEQ 0 
THEM 


BEGIN 
TEMP = NEXT Seu; 
a CXESA_PREV] = .TEMP1; 


' 
: Remember where we left off 


Ss 
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CELL CCS$A_CURR) = .TEMP1; 
END 


END; ‘End of INSERT_INX 


OFFC 00000 INSERT_INX: 


.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1738 
B G 8F 00 0000 MOVL § #DSRINDEX$ NOBEGIN, R11 : 
4 6 FF E 0 MOVAB DMPENT R10 : 
9 G 60 9 MOVAB LIB SIGNAL . R9 : 
3 G EF 9€ 0001 MOVAB SAVDAT, R : 
EF gE 3 MOVAB CELL, R7 : 
4 G EF 9€ 0002 MOVAB XPLBLK, R6 : 


? 
9 13 AX=11 BLiss-32 V4.0-74 Page 37 
~Sep-1984 01:04:26 T.BLI; 
T NDXOUT == Sort and store in dg ooh 12-808-138e 93:04:96 RUNOFF. SRC.JNDXOU . 
vou" 00 INSERT_INX == Insert index apie } ans 00, 1786 
= AE De SO0SF HOVE BOOKID, XMREF +4 : 1805 
5 10 + 4 5 MOVL aIN aS 1s : 1792 
i Oc Ay RE 20081 Brose’ : 1805 
00 43 MOVL RO, _XE_TEMP ; 1810 
oe > MOVL Sixt TEMP), XM TEMP + 1318 
33 1c AS BO 008 CAPE SCXMETERP) . BOORID pom 
caer a BER cag) OR © dha ion Some 
D .™ ; 1 
1 B BNEQ : 
7: sp : 
F : 
OM 9 00061 CALLS” #3, SAVDAT 
68 PR B45: MOVL == RO, (XM_TEMP) : 1822 
ee 33 4 006A LO pega om : 1880 
52 be ff goose amt : 1833 
i Be 
66 * AS 5S 00078 TSTL Igixe. ERP) fete 
$5 - rf 3 90080 CLRG ue to, ex TEN ; 1854 
MOVL = 12(X émP)> 7$ * 1869 
- "a 01 50 90088 movL 4 On ERP) , RANGE BOOK 2 1800 
2 oc DO 0008 nov #3, 10(xx_TEMP), 8S : 1874 
0$ £0 00098 7: BBS (xX_TEMP), RANGE_BOOK 
06 OA A2 OC A2 D1 0009 CMPL = 12 (XX_ * 1880 
. ; iz 00098 CLR RANGE_ACTIVE : 1889 
; DS O09F 58: STL (XX_TEMP) ee 
08 3 O0AI MOVE (XX_TEMP), XX_TEMP ; 
52 62 00 O00A5 one : > 1893 
Be eee BC  RANGE_ACTIVE, 11$ : 1899 
1c 5 E QOOAB 108: BLBC OR 
oF 3 £9 000AB BBE) #3, XPEBLK, 128 > 1908 
66 Et OOOA PUSHL #DSRINDEXS DUPBEGIN : 
~ enema i PB 0008 CALS Bl LIGSSIGRA. : 1917 
9 move | os > : 
AC 70 00088 ‘ PENT : 191 
Sn) eee R 
66 1 cS BRB bs 
13 s EY OO0GA | S| OBBE’ Ray KPEBLK, 128 ; 1934 
i * gf PR SESH! cuesstou 9s 
4 18 AC 7D 0000 Pits | BOL“ bAPENT : 1944 
6A OF Oe Oe GitBS #16, XPLBLK : 1950 
- 54 DD O00DD 128:  PUSHL RA 
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NDXOUT NDXOUT == Sort and store index entries -$e9-1984 01:04: AX-11 Bliss-32 V4.0-74 
you-000 INSERT_INX == Insert index item into list Het) 1 94:05:98 RUNOFF aeinoxout bf. eer FB 
00000000v EF F DF CALLS #1, INSERT_REF ; 
gS 94 6 E6 MOVL 4 (XX_ TEMP) : 
13 5 £9 QOOFA 138: BBC RS, 148 : 1885 
OF 66 4 £1 ED BBC #4, XPLBLK, 148 : 
a DD OOOF PUSH : 1966, 
69 FB OOOF CALLS #1, LIBSSIGNAL ; 
E 18 AC 7D OO00F MOvG f_LEN, =(SP) + 1975, 
6A 0 FB OOOFA CALL We DMPENT : 
we 2 BD OOtod 148: pustic a6, —— : 135 
oo00000v EF FB 001 CALLS #1, INSERT_REF ; 
ee ® dO 001 MOVL RO, 12(XE_TEMP) : 
53 $0 66 bolts 158:  ROvL RO. TERP : eRe 
oc ac 18 «AS 10 0 : 11} CMP 0. #16, 24(TEMP), SUB_CNT ; 3008 
52 g DO OO11A MOVL RO, NEXT_CELL : 2008 | 
5 63 00 0011D MOVL (TEMP) , CAST_CELL : 2009 
11 00120 BRB 17 ; 
: D4 00122 16$: CLRL  NEXT_CELL : 2013) 
55 DO 00124 MOVL RO, CAST_CELL + 2014 | 
4 0D 127 17$: TSTL R4 3; 2017) 
21 13 00129 BEQL 198 : 
13 66 £9 91 8 BLBC  XPLBLK, 18$ + 2023 
OF 66 04 €1 001 BBC #4, XPLBLK, 18$ : 
5B DD 0013. PUSHL + 2032 
69 01 FB 001 CALLS #1, LIBSSIGNAL ; 
7E 18 AC 7D 00137 mOVG. ENT_LEN, -(SP) : 2041 | 
6A 08 FB 001 CALLS #2, DMPENT ; 
66 10 BA 0013€ BICB2 #16, XPLBLK : 2042 
54 DD 00141 18$:  PUSHL 4 : 204 
00000000v_ EF 01 FB O0145 CALLS #1, INSERT_REF : 
2 11 OO14A BRB 20$ : 2017 
50 D4 oor4¢ 19$:  CLRL  REF_PTR ; 048 
6E 55 Olde 20$: MOVL  LAST_CELL, TEMP_CELL : 205 
04 AE 52 D O13 MOVL §NEXT~CELL, TEMP CELL +4 + 2054 
18 AE 0c AC BO 90155 MOVW § SUB_UNT, TEMP_CELL+24 ; 095 
1A AE 01 00 14 AC FO 0015A INSV BAR> #0. #1, TEMP CELL +26 ; 26 
Oc AE 50 DO 00161 MOVL REF PTR. TEAP_cELC#! : 205 
08 AE 04 163 CLRL =‘ TEMP_CELL+ : 098 
0 DD 0016 PUSHL # > 205 
pp 16A PUSHL # : | 
28 «AE OOF 0016C PUSHAB XMREF : 
48 Q F 16F CALLS a. SAVDAT ; 
10 AE dO 001 MOVL TEMP_CELL+28 ; | 
04 At p 17 TSTL STRING > 2064 
11. 13 0017 BEQL 1$ : | 
08 AC DD 00178 PUSHL LNGTH + 2066 | 
7E D4 0017 CLRL. = = (SP) ; 
04 AC DD 001 PUSHL STRING ; 
3 Q FB 601 CALLS #3, SAVDAT : 
10. AE 00 001 V RO. TEMP_CELL+16 ; 
03 11 OO18A BRB 22$ ; 
10 AE D4 0018C Z18: CLRL ‘TEMP_CELL+1 ; 068 
50 04c4 CC 09 18F 22$: MOVL ; RTLEN, R : 207 
11 1 BEQL $ : 


v04=000 


oc AC 


3; Routine Size: 


NDXOUT == Sort and store index entries 
INSERT_INX == Insert 


18 AS 


482 bytes, 


ndex 


14 AE 


08 A3 
04 A’ 
08 67 


Routine Base: 


‘som 
tem into List 1 ~Sep=1 
$0 po aniat 
04C¢0 : 4 i A 
a8 1A 
14 AE D4 QOTA sit: 
a BS ite 
oe BR 
3 08 1B4 
18 8 Ooiee 
a6 FC Ook 
HERE 
94 DO OOI1CA 25$: 
BU BI ane 
zB Going 278: 
98 iy) 00108 
50 00 00108 
50 DO OO1DE 28$: 
04 O001E1 


SCODES + 0475 


Be 13:07:98 


AX-11 Blisg-32 V4.0-74 
RUNOFF .SRCJNDXOUT.BLI; 


RO 

-(SP) 

SORT PTR 

#3, SAVDAT 
RO TEMP_CELL+20 
i MP_CELL+20 
4 

TEMP CELL 

#3, SAVDAT 
LAST CELL 

64 


LAST_CELL, TEMP 
#0, #16, 24(TEMP), SUB_CNT 


TEMP1, 8(TEMP) 
TEMP1, / (TEMP) 
TEMP1, @CELL+8 
NEXT_CELL 


NEXT_CELL, TEMP 
TEMPT, (TEMP) 
TEMP1, CELL 
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=-- Sort and store index entries 16-Sep-1984 01:04: AX-11_ Bliss-32 V4.0-74 
REF == Insert page reference into List 1328057138 93:05:98 RUNOFF .SRCJNDXOUT .BLI; 
ZSBTTL "INSERT_REF <= Insert page reference into List’ 
ROUTINE INSERT_REF (XTN) = Hn 
FUNCTIONAL DESCRIPTION: 

This routine inserts a page reference into the indexing pool 
FORMAL. PARAMETERS: 

XTN = Transaction number 
IMPLICIT INPUTS: 


XPLBLK = Extended ean bak attributes block 
BOOKID = Master index book ident string address 


IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns the address of the saved page reference 
SIDE EFFECTS: 
None 
BEGIN 


LOCAL 
REF_CELL : $XX_BLOCK; 


LL CXX$A_LINK] = 0; 

LL CXX$A~BO0K] = .BOOKID; 
LL EXX$H"PAGE] = .XTN; 
LL XX$V"FLAGS] = 05 


XX$A~APPEND) 
XPLBLK CXPLS$V_VALIDJ 


Have .XPLUS information 


LOCAL 
APPEND : REF SSTR_DESCRIPTOR (); 


REF_CELL CXX$V_BOLD] = .XPLBLK CXPL$ BOLD]; 

REF-CELL CEXXSV—UNDERLINE) = sXPLBL RPLSV_UNDERLINE); 
REF-CELL EXX$V~BEGIN) = .XPLBLK CXPL$V BEGINI; 
REF-CELL EXX$VEND) = .XPLBLK CXPL$V_ERDJ; 


APPEND = XPLBLK CXPL$T_APPEND]; 
IF .APPEND CSTRSH_LENGTH) NEQ 6 
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; Routine Size: 


000C 00000 EROENY PET 


ORD Save R2,R3 
53 000000006 EF 9€ 0000 MOVAB SAVDAT, R3 
52 000000006 EF 3 9000 MOVAB XPLBLK R2 
” f bf 0018 a REF CELL 
OC AE 000000006 EF p0 $01 MOVL BOORID, REF_CELL+12 
08 AE 04 AC 3C 0001 MOVZWL XTN, REF_CECL+8 
04 aE D4 000 CLRL REF CELL34 
43 62 £9 000 BLBC  XPLBLK, 1 
62 01 01 EF 00028 EXTZV #1, #1. XPLB 
01 00 50 FO 000 p INSV RO, #0, # mats fELL+10 
62 01 Q EF 000 EXTZV #2. #1. LK 
01 01 FO 00038 INSV RO, #1, # REF EELL*10 
62 01 03 EF 00035 EXTZV #3. #1. wPLBLK 
01 02 50 FO 0004 INSV RO, #2, #1, REF CELL#10 
62 01 04 EF 00049 EXTZV #4. #1. rei K,"R 
01 03 50 FO OO04E INSV RO. #3, REF _CELL+10 
50 OC A2 9E 00054 MOVAB nPLalKs12, * APPEND 
60 B85 00058 TSTW tAPP PEND 
OF 13 O005A BEQL '1$ 
7E 60 3¢ 0005¢ MOVZWL (APPEND), -(SP) 
7E D4 0005F CLRL = (SP) 
04 Ag DD 00061 PUSKL  4(APPEND) 
63 0 FB 0064 CALLS #3, SAVDAT 
04 AE 50 D0 00067 MOVL RO, REF_CELL+4 
04 DD 00068 1S: PUSHL #4 
08 ac BP Boer BUSHAB REF CELL 
63 0S FB O072 CALLS WS. ~SANDAT 
04 0007 RET 


118 bytes, Routine Base: S$CODE$ + 0657 


NSERT_REF m= Insert page reference into List ii nSep-1984 13:07:13 — ERUNOFFSRESNDXOUT.BL 1; 
185 THEN | 

} Have an append string 

1 § REF _CELL CXXSA_APPEND] = SAVDAT (.APPEND CSTRSA_POINTER], DS_X_STRING, 

} 5 END; 

: ; 3 a SAVDAT (REF_CELL, DS_XX_ENTRY, XXSK_LENGTH); 


-APPEND CSTRSH_LENGTH]); 
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T == Sort and store index entries 16-Sep-1984 01:04: AX-11 Bliss-32 V4.0-74 
Y_CMP -- Compare new entry with current ent 12286871382 94:09:98 YRUNOFF SRE NDXOUT.BLI; 


ZSBTTL "ENTRY_CMP == Compare new entry with current entry‘ 
ROUTINE ENTRYCMP (NEWPTR, NEW.LEN, LAST, XTN, LEVEL) = 


FUNCTIONAL DESCRIPTION: 
This routine compares the new entry with the current entry. 
For subindex entries (i.e. LEVEL NEQ 0) performs the following checks: 


If LAST is TRUE, checks to see if new entry is either 
a .ENTRY or .YPLUS. 


If the new entry is a .Y or .YP, it checks to see if the 
current entry is either a .X (.XP) or if the current entry 

has subentries. If so, a value of TRUE is returned indicating 
that the new entry should be inserted before the current entry. 


If LAST is FALSE or the new entry is not a .Y (.YP) and the 
current entry is a .Y (.YP), a value of FALSE is returned 
indicating that the new entry should be inserted after the 
current entry. 


Otherwise, calls STRG_CMP to see if the new entry should be 
inserted here. If so, calls STRG_CMP again to see if the 
new entry is identical to the current entry. 

FORMAL PARAMETERS: 
NEW_PTR = Pointer to new entry text 
NEW LEN = Length of new entry 
LAST - TRUE if XTN should be compared to transaction number 

associated with CELL. 

X™N - Transaction number of new entry if LAST is TRUE 
LEVEL = Subindex Level (0 to n) 

IMPLICIT INPUTS: 
CELL = contains pointers to the List item for comparison. 
SORT_LEN= Length of sort string if any 
SORT_PTR= pointer to sort string if any 

IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


TRUE if new entry should be inserted before the current entry, 
FALSE otherwise. 


SIDE EFFECTS: 
None 
BEGIN 
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So 
uw 


New entry has a sort string. Use it. 


N_PTR = .SORT_PTR; 
N-LEN = .SORTILEN; 


E 
ELSE 
BEGIN 


i no sort string is available. use text. | 


16 | 
NDXOUT == Sort and store index entries 18-5¢ -1984 01:04:24 AX-11 Bliss-32 V4.0-74 
ENTRY_CMP == Compare new entry with current ent 1 730071382 93:05:98 RUNOFF .SRC NDXOUT SLI 44 “thes BF 
4g LOCAL | 
4 CEPTR : REF $XE_BLOCK, 
‘3 N_PTR, 
4 N_LEN, 
5 C_VEC : REF VECTOR, 
2] C_PTR, 
3 C“LEN; 
34 CEPTR = .CELL CCSA_CURR); | 
26 IF .LEVEL NEQ 0 
2 THEN 
28 BEGIN 
60 i Subindex entry, | 
¢) Check to see if we should float a .Y 
8 4 if .LAST AND (.XTN EQL 0) ! Tf at bottom of new entry 
oe ? ae ! and new entry is a .Y | 
? 2 — CXESA_REF] NEQ 0) OR (.CEPTR CXESA_SUBX] NEQ 0) 
68 4 ! 
$9? : } Current entry is a .X or .XP or has subentries. 
a 2 RETURN TRUE; ! New entry is before current entry 
2e75 4 END 
315 i ELSE GIN 
76 4 ! 
sir ? } Not at bottom of entry or not .Y 
279 5 if (.CEPTR CXESA_REF] EQL 0) AND (.CEPTR CXESA_SUBX] EQL 0) 
sh — 
2 Current entry is a .Y or .YP 
84 4 RETURN FALSE; ! New entry is after current entry 
286 END; 
44 END; 
89 IF .SORT_LEN NEQ 0 
90 THEN 
91 BEGIN 
3 ! 
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N_PTR = .NEW_PTR; 
NOLEN = .NEW-LEN; 


CEPTR CXESA_SORT_AS] NEQ 0 


' 
Current entry has a sort string. Use it. 


C_VEC = .CEPTR CXESA_SORT_AS] 

! 

Current entry has no sort string. Use text of entry. 
C_VEC = .CEPTR CXESA_TEXT); 

et number of characters in internal sort 2 gas 
ength is stored as the first fullword of the string 
EN = .C_VEC (0); 

TR = CHSPTR (C_VEC (1); 


! 
ig 
iy 
! 
L 
P 


i Check to see if this is the proper insertion point 
if STRG_CHP (.N_LEN, .N_PTR, .C_LEN, .C_PTR) 
BEGIN 


i This is almost the spot. 
! Check for identical sort strings. 


iF .CELL CC$V_IDNSJ 
THEN 
BEGIN 


i Sort strings were identical. ‘ 
Compare text strings to determine positioning. 


CELL CCSV_IDNS) = FALSE; 
.CEPTR XESA_TEXTI; 
-C_VEC (OJ; 
CHSPTR (C_VEC (1); 
RETURN STRG_CMP (.NEW_LEN, .NEW_PTR, .C_LEN, .C_PTR); 
ELSE 


i Sort strings different. 
: This is the correct position for insertion. 


RETURN TRUE: 


.. 
CL 
' 
i 
' 


oO 
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“ut 


ELSE 
RETURN FALSE; 
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NDXOUT == Sort and store index entries 
ENTRY_CMP == Compare new entry with current ent 1 
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16 


w$tp-1986 15:07:43 


18: 


2$: 


on 
gh ad 


AX-11 Oh fegn3e V4.0-74 
RUNOFF ..SRCJNDXOUT ..BLI; 


4,R5,R6,R7 


SORT_LEN, RO 
SORT_PTR, N_PTR 
NEW_PTR, N_PTR 


NEW-LEN, N_LEN 
O(CEPTR) 


C) N 
aos. ¢ Srt 
PTR 


M<RO,R1,R5> 
4, STRG_CMP 


$ 
ae te C vEC 
( 
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#1, RO 
RO 


taal | 
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vo4~000 


; Routine Size: 


DXOUT == Sort and store index entries 


ENTRY _CMP == Compare new entry with current ent 1 


148 bytes, 


Routine Base: 


04 00093 
SCODES + 06CD 


1b: gen-138 9}: 83 fe 


RET 


AX-11 Bliss-32 V4.0-74 P 
RUNOFF .SRCJNDXOUT.BLI; ot: (35 
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K 16 
T == Sort and store index entries 19-30 
CMP == Compare two strings 14-Se 


ZSBTTL "STRG_CMP == Compare two strings’ 
ROUTINE STRG_CMP (S1_LEN, S1_PTR, S2_LEN, S2_PTR) = 


'e4 
' FUNCTIONAL DESCRIPTION: 


p-1986 13:07:13 ERUNOFFeSREINDKOUT BL: 


This routine is called to ponerse two strings. 
It returns TRUE if string 1 should be before string 2. 


It sets CELL CCSV_IDNS] if the strings are identical. 
FORMAL PARAMETERS: 


“ 
—_ 
wv 
~ 
» 
seee 
wv 
°o 
~ 
= | 
eo 
e 
* 
Cad 
°o 
w 
oe 
oe 
~~ 
p> ] 
wo 
_ 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
CELL CCSV_IDNS] - set to true if strings are identical 


ROUTINE VALUE: 
COMPLETION CODES: 


TRUE - String 1 is before string 2 
FALSE = Otherwise 


SIDE EFFECTS: 
NONE 


et ee eed tet i i a i i ee i te te te te tt tt 


z 
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T == Sort and store index entries 
CMP -- Compare two strings 
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18-Se0-19 
14-Sep-19 


PTR_2 = .S2_PTR; 
REM-2 = .S2-LEN;: 
ICASE = 0: 
IEMPH = 0; 

OLDCASE 8: 


OLDEMPH = 
COLUMN = 0; 


' 
Loop until done with both strings 


REPEAT 
BEGIN 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXOUT.BLI; 


~ ——————————————————— 


erences in case yet 
erences in emphasis yet 
erences in case yet 
erences in emphasis yet 
t positions scanned yet. 


ee ee 


i Update count of print columns, so positions of case and emphasis 


differences can be remembered. 
COLUMN = .COLUMN + 1; 


i Make sure neither string has run out. 
the place for insertion. 


IF (-REM_2 LEQ 0) OR (.REM_1 LEQ 0) 
BEGIN 


If one has, this is 


Check for exact string before leaving 


IF (.REM_2 LEQ 0) AND (.REM_1 LEQ 0) 
THEN 


i Both strings have run out. The 
: there are no case or emphasis d 


re identical if 


sect CCS$V_IDNS) = ((.ICASE EQL 0) AND (.1EMPH EQL 0)) 


Only one string has run out. 


i 
! is 
' 
i 
t 


RETURN (.REM_1 LEQ 0); 


j c The longer of the two strings 
reater’’ than the shorter string, or conversely, the 
hat's run out is the ‘lesser’ o 


on a 
if the input string is the “‘lesser’’ of the two. 


IF .OLDEMPH NEQ 0 THEN RETURN (.OLDEMPH EQL 1); 
IF .OLDCASE NEQ 0 THEN RETURN (.OLDCASE EQL -1); 


RETURN TRUE; 
END; 


CHRCMP (PTR_1, PTR_2, CASECMP, CHARCMP, EMPHCMP, REM_1, REM_2); 


IF _ .CHARCMP NEQ 0 
THEN 


DXOUT == Sort and store index entries 
TRG_CMP == Compare two strings 
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ed ed ed od eB OOOO 
NOUS —OVDOnoO 


SANS 


| 


RETURN (.CHARCMP EQL -1) 
BEGIN 


Remember differences in the string so they can be 
applied if the string runs out. 


If there is a difference of cases, the very first place where 
case differs is the significant case difference. All other 
positions are secondary. 
i EQL 0) AND (.CASECMP NEQ 0) 
BEGIN 
i Remember column position where difference occurred 
Remember what the case difference was. 


iCASE = .COLUMN; 
OLDCASE = .CASECMP; 


ee ee 


If there is a difference in emphasis, the very first place where 
oy gee differs is the significant emphasis difference. 
ALL other positions are secondary. 


IF (.JEMPH EQL 0) AND (.EMPHCMP NEQ 0) 
THEN 
BEGIN 


i Remember column position where difference occurred. 
} Remember what the difference in emphasis was. 

i=MPH = .COLUMN; 

OLDEMPH = .EMPHCMP; 


END; 


On remem ems 


‘End of STRG_CMP 


QOFC 00000 STRG_CMP: 


. Save R2,R3,R4,R5,R6,R7 

14 C3 9002 SUBL2 #20 SF 

AC D 999 MOVL $1_PTR, PTR_1 

AC D OA PUSHL S1"LEN 

AC D VL Sg-PIR. PTR_2 

AC bp 1 PUSHL S2-LEN 

4 7C 0001 CLRQ. ss TEMPH 

: 7C 0001 CLRQ  OLDEMPH 

D4 00019 CLRL = COL 
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a ee 
No 


NDXOUT == Sort and store index entries 


STRG_CMP == Compare two strings 
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3; Routine Size: 


NDX Root =- Sort and store index entries 


STRG_CMP == Compare two strings 


sa 


54 
52 08 


207 bytes, Routine Base: 


oOwoo-0-"000—" 


SCODES + 0761 


c 1 
16-sep- 
14-Sep- 


1986 93:07: 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXOUT.BLI; 


ICASE 
ECR, OLDCASE 
HCMP 


UMN, IEMPH 
HCMP, OLDEMPH 


PZOVZIMNPSOE wie 
ze baa” tea + hy 


MNO OO TD 


Ss 


dD 1 
UT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-74 
MP == Compare two characters in internal fo 13-808 - 132 9 3:05:% RUNGFF .SRCJNDXOUT.BLI; 


ZSBITL 'CHRCMP == Compare two characters in internal format‘ 
ROUTINE CHRCMP (XA, XB, CASECMP, CHARCMP, EMPHCMP, REMAINDER_A, REMAINDER_B8) : NOVALUE = 


lee 
FUNCTIONAL DESCRIPTION: 


WR OOONOUEW 


CHRCMP compares two characters in RUNOFF internal format (i.e, 
as generated by SCANT). 


Basically, the comparison is done lexically, with the change 
that the characters which are not letters are lexically smaller 
than any letters. 


It takes overstriking, underlining, and bolding into account 
when doing the comparison. If two characters are identical 
except for their emphasis, the comparison is such that the 
character with the most emphasis is lexicaliy smallest. 


pg is considered to emphasize more than unders ning. but 
less than both underlining and bolding together. Underlining 
emphasizes more than overstriking; but note that the 
overstriking sequence is NOT taken into account in the 
comparison. Upper case emphasizes more than lower case. Emphasis 
is always less significant than ‘‘naked character’ differences. 


FORMAL PARAMETERS: 


PASI IUIUIUIUIT ES BS Td tse ote ane 
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-— 


s53885 


XA and XB are CHSPTRs to the characters to be compared. 


CHARCMP = Returned as if computed by subtracting the internal 
representations of the characters, except that letters 
are ‘‘greater’’ than all other characters. 


CASECMP = Returned as if computed by subtracting the 
“upper/lower caseness’’ of the characters. Upper case 
has ‘value’ 0, lower case 1. 


By definition, characters other than letters are in upper case. 


EMPHCMP = Returned as SIGN(emphasis of A - emphasis of B) where 
each emphasis type requires one bit. Overstriking has 
ne 4 pod i. underlining has the value 2 and bolding 

e value 4. 


REMAINDER_A = the number of characters scanned in XA is subtracted from it. 


REMAINDER_B - the number of characters scanned in XB in subtracted from it. 


IMPLICIT INPUTS: 


in the algorithm. Basically it assumes that the ‘'na 
character comes after the escape (=emphasis) sequences. 


The arrangement of the internal representation is sen po Ne 
e 


IMPLICIT OUTPUTS: 
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1 
UT == Sort and store index entries 1bese -1984 01:04:24 AX-11 Bliss-32 V4.0-74 | 
MP == Compare two characters in internal fo 12-Sep-19 4 03:09:46 RUNOFF .SRC NDOT OL 424 Page 443 


ROUTINE VALUE: 


The result is returned as if it could be computed by 
SIGN (.A = .B); 


SIDE EFFECTS: 
NONE 


XA, 
- XB; 


SOOO 0C0000000000009 0000 0000000000 


oO 


Assume no emphasis for character A 
Assume no emphasis for character B 
Assume no case difference. 

Assume characters identical. 
Assume no emphasis at all. 


HOOD NAUE WN -OOODNOUE WN —"OVODONOU OO 
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oO 
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zz 
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v 

nun 
ooo 


- EMPHCMP 
REPEAT 


BEGIN 
CA = CHSRCHAR_A (PTR_A); 
-REMAINDER_A = ..REMAINDER_A - 1; ! Subtract off scanned character 


IF .CA EQL RINTES 
THEN 
BEGIN 
Interpret escape sequence. 


CA = CHS$RCHAR_A (PTR_A); 
-REMAINDER_A = ..REMAINDER_A =- 2; ! Subtract off scanned characters. 


SELECTONE .CA OF 
SET 


MIMINONINOPOPUTOTY 
PARAS AAO 


C%c'B'): 


POPIMIPIPONGNONYDS 2 9 2? OO OS OOOO 


WWII 
Wn 0@~ 


! Emphasis value of bolding. 
RA = .RA OR 4; 
C2c*u'd: 


©0909 02 09 09 09 00 09 09 Cn OD 00 OD 09 CD CD 0D C9 Cd 09 09 0D OD C9 9 00 C0 C9 09 C909 09 ISI SISI INI SISI SIS NNSSINSSISSSISS 


' Emphasis value for underlining. 
RA = .RA OR 2; 
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NDXOUT NDXOUT == Sort and store index entries 16-Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-74 Page 74) 

v04-000 CHRCMP == Compare two characters in internal fo 10-8 8-138e 93:09:48 RUNOFF .SRCJNDXOUT.BLI; . (11) | 

; 1837 6 3 4 

>; 1838 6 4 C2C'C'd: 
1: 1839 634 4 ! 

; 1840 935 4 ! Emphasis value for overstriking. 

3: 1841 6 $ 4 : 

; 1806 6 4 RA = .RA OR 1; 

: 184 638 4 

> 1844 639 4 COTHERWISE): 

> 1845 640 4 ' 

3: 1846 641 4 ! Non-emphasis value ‘do nothing) 

3 1847 song 4 : 

: 1848 see 4 ; 

3 1849 644 & 

; 1850 cre7 4 TES; 

>: 1851 646 4 

: 1838 647 4 CHSRCHAR_A (PTR_A); 

>; 185 648 4 N 

: 1854 649 3 ELSE 

>; 1855 2650 4 BEGIN 

>; 1856 2651 4&4 

3; 1857 $036 5 IF UPPER_LETTER (.CA) 

: 1858 2653 4 THEN 

; 1859 2654 5 CA = LOWER_CASE (.CA) 

3; 1860 2655 4 

: 1861 2656 4 -CASECMP = 1; 

: 1866 2657 4 EXITLOOP 

: 186 2658 4&4 END 

3 1864 yeh 2 END; 

>; 1865 660 2 

: 1866 2661 2 ‘ 

3; 1867 2662 2 ! Scan second character. 

3; 1868 2665 2 ! 

3; 1869 2664 REPEAT 

; 1870 665 BEGIN 

3; 1871 666 CB = CHSRCHAR_A (PTR_B); 

; 1872 2667 3 »REMAINDER_B = ..REMAINDER_B - 1; ! Subtract off scanned character 

3; 1873 2668 3 

> 1874 669 3 If .CB EQL RINTES 

: 1875 670 3 THEN 

3: 1876 2671 4 BEGIN 

3; 1877 5076 4 ! 

: 1878 673 4 ! Interpret escape sequence. 

3; 1879 674 4 : 

3 1880 675 4 CB = CHSRCHAR_A (PTR_B); 

3; 1881 676 4 -REMAINDER_B = . .REMAINOER_B - 23 ! Subtract off scanned characters 

; lose 677 4 SELECTONE .CB OF 

s 3 ore 4 SET 

; 1884 679 4 

: 1885 680 4 CxC'B'): 

3 1358 681 4 ' q 

; 188 6 ¢ 4 ! Emphasis value for bolding. 

: 1888 6 4 : 

3; 1889 684 4 RB = .RB OR 4; 

: 1890 on? 4 

3; 1891 6 § 4 CxzC'u'): 

; 1336 687 4 : E 

: 189 688 4 ! Emphasis value for underlining 


XO reco 25.90.0029 


1 
DX NDXOUT == Sort and store index entries 1B-se =1984 04:24 AX-11 Bliss-32 V4.0-74 
v04-000 CHRCMP == Compare two characters in internal fo 1 ~Sep-19 4 93048 RUNOFF .SRC NDKOUT:BL Is Page 43 
1898 88 ke RB OR 2 
9 691 Has . 
9 $36 C%C'O'): 
9 69 ! 
, O80 } Emphasis value for overstriking 
0 69 RB = .RB OR 1; 
0 69 
0 698 COTHERWISE): 
0 699 ! 
0 f 9 Non-emphasis value (do nothing) 
70 ; 
70 
704 TES; 
705 


CHSRCHAR_A (PTR_B); 


ELSE 
BEGIN 


| 
if UPPER_LETTER (.CB) 
CB = LOWER_CASE (.CB) 
-CASECMP = ..CASECMP = 1; 
EXITLOOP 
END 
END; 
| 
| 
i 
j 
j 


i At this point, the ‘naked’ characters are in CA and CB. 
Decoded emphasis escape sequences are in RA and RB. 
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: "Subtract’’ emphasis to get relationship. 
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3 -EMPHCMP = SIGN (.RA - .RB); 
3 ! 
! Compare the ‘'naked"’ port of the characters and 
: return the relationship. 

937 § IF LOWER_LETTER (.CA) 

938 ! First character is lower case 

939 4 IF LOWER_LETTER (.CB) 

940 5 ' Second character is lower case 

941 6 -CHARCMP = SIGN (.CA - .CB) ! return relationship between characters 
ong 7 ELSE : Second character is upper case ie 
ar 4 ~CHARCMP = 1 ! hence second character is ‘‘largest’’. 
945 0 ELSE ! First character is upper case 

946 741 IF LOWER_LETTER (.CB) 

947 Mg ' Second gherecter is lower case 

948 74 .CHARCMP = -1 ! hence first character is ‘‘largest”’ 
949 744 ' Second character is upper case 

950 745 ~CHARCMP = SIGN (.CA - .CB);! return relationship between characters 


| 1 
NDXOUT N T == Sort and store index entries Sep-1984 01:04:24 AX-11 Bliss-32 V4.0-742 Page 76 
C a 16- pr 1oRe $30 . 


] 
DXOU . . ' . 7 | 
v04-000 HRCMP == Compare two characters in internal fo 14-Sep-1984 13:07:15 RUNOFF .SRCJNDXOUT.BLI;1 (11) 
: 1951 3746 2 
3s 1982 747 END; 'End of CHRCMP 
007¢ 999 CHRCMP: .WORD Save R2, R3, R4,RS,R6 : 2520 
56 006 Hy 9A 0 0 MOVZBL arin TES, : 
4 D4 0000 CLRL = RA : 2598 
51 D4 00008 CLRL = RB + 2599 
of BC D4 0 OA CLRL  @CASECMP + 2600 
53 1 ag DO D MOVL CHARCMP, R3 + 2601 
63 D4 00011 CLRL (R3) : 
14 BC D4 00013 CLRL § @EMPHCMP + 2602 
50 04 BC DO 00016 1$: MOVL XA, RO + 2606 
“ 04 Be be OOO1D RoveeL (RO), CA 
18 8 pS 99020 DECL § @REMAINDER_A + 2607 
56 D1 00023 CMPL CA, R6 : 2609 
3B 12 00026 BNEQ 38 : 
50 06 BC dO 990 8 MOVL @XA, RO : 2615 
- 0% be BG Oder Ne” a (ROS, - ; 
18 BC 9 C2 00032 SUBL2 of @REMAINDER_A : 2616 
00000042 BF D1 00036 CMPL CA, #66 + 2621 
0 \2 0003p BNEQ  2$ : 
54 04 88 0003F BISB2 #4, RA + 2625 
1A 11 00042 BRB 4$ : 
00000055 BF 52 D1 00044 2$ CMPL CA, #85 + 2627 
54 §3 BB pode Bees aS, RA : 2631 
OC 11 00050 BRB 4$ : 
0000004F BF 3¢ D1 00032 3$ CMPL CCA, «#79 : 2633 
54 BF aS Soosp ores2 oat. RA : 2637 
06 BC D6 ie 4$ INCL XA > 2647 
( 11 00061 BRB 1$ : 2609 
00000041 BF 2 D1 00063 5$ CMPL CA, #65 : 2652 
0000005A 8F 53 ty Bpoee Base ER noo : 
05 14 007 BGTR 6$ ; 
52 0 ¢cO 0007 ADDL2 #32, CA > 2654 
4 1} 07 BRB i$ ; 
0c Bf 1 DO O007A $$: MOVL @CASECHP : 2656 
08 BC DO OO07E 7S: OVL ax, “Rs + 2666 
qt eEnpE jem &o : 
1c «BC pS DECL § @REMAINDER B : 2667 
56 0 01 CMPL CB, R6 : 2669 
B if a BNEG 118 ; 
55 08 B¢ p MOVL ax8 RS > 2675 
50 65 9A 094 MOVZBL (R55, C ; 
08 D 97 INCL x ; 
ooo0004s BF Df 00% se ea : $828 
12 00 3 BNEQ 8$ 3 
| 
| 


ow 


1 
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CHRCMP == Compare two characters in internal fo 14-Sep-1 RUNOFF .SRCJNDXOUT.BLI; (11) 


51 4 88 QO0A7 BISB2 #4, RB ; 2686 | 
% #f OAA BRB o$ : | 
00000055 8F 30 p| OA as CMPL B, #85 + 2686 | 
51 3 BS 0008 Bree wo. RB ‘2690. 
11 00088 BRB § : 
O000004F  8F 6 D| 0 BA 9$ CMPL C8 #79 + 2692 
‘ ct BNEQ § : 
51 1 8 ¢ BISB2 #1, RB : $96 
08 8B D6 Océ 10$: INCL axB : 06 
1 ¢ BRB 7$ + 266 
00000041 =F D4 OCB 11$: CMPL #65 : 2711 
9 000D BLSS § ; 
0000005A BF D1 9004 CMPL CB, #90 : 
50 83 LG Soobe Rete ; cB : 2713 
03 11 OO0E BRB F 
0c BC D7 O00E 128: DECL.  a@CASECMP + 2715 
51 4 ce OOE5 13$:  SUBL2 RA, R1 + 2726 
51 DS 00068 TSTL. = RI : 
51 DC OOOEA MOVPSL R1 : 
51 51 02 02 ai O0EC XTZV. #2, #2, R1, R1 ; 
14 BC FF Al 9E OOOF1 MOVAB =1(R1). @—EMPHCMP : 
00000061 =F 52 D1 O00F6 CMPL CA, #97 : 2732 
1F 19 O00FD Biss =: 15$ : 
0000007A «BF 52 1 OO0FF CMPL CA, #122 : 
16 14 00106 BGTR 15% : 
00000061 = 8F 50 D1 00108 CMPL (CB, #97 + 2734 
09 19 0010F BLSS 14$ : 
0000007A =F 50 p1 00111 CMPL (CB, #122 ; 
1A 15 00118 BLEQ 16$ 3 
63 01 DO OO11A 14$:  MOVL #1, (R3) : 2738 
04 0011D RET : 3754 
00000061 = &F 50 D1 OOrIE 15$: CMPL CB, #97 : 2741 
0000007A BF 98 \ $015? atl tes #122 : 
63 § te it 5 BAEGL jes (R3) > 2743 
04 00133 RET ; 
50 5 C2 00134 16$:  SUBL2 CA, RO : 2745 
D5 00137 TSTL RO 
50 pC 00139 MOVPSL RO : 
50 50 02 08 ai 0138 EXTZV. #2, #2, RO, RO : 
6 FF AO SE 9140 MOVAB -1(RO). (R$) : 
04 00144 RET : 2747 


; Routine Size: 325 bytes, Routine Base: S$COreE$ + 0830 


3; 1953 2748 1 END ‘End of module 
3: 1954 2749 O ELUDOM 


LIBS$SIGNAL 


i XOUT NDXOUT == Sort and store index e 1bse Sep- 1384 9}: Os: #¢ AX-11 Bliss-32 V4.0 | 


ntries -74 Page 78 ND 
voe-000 CHRCMP == Compare two characters i Tnternal fo 14-Sep-1 RUNOFF .SRC JNDXOUT.BLI; ° (11) vo 
3 PSECT SUMMARY : 
; Name Bytes Attributes ; 
: SOWNS 133¢ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
; SCODES 2421 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) a 
; SPLITS 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; Library Statistics ; 
tee ee Oe Symbols -o-ee--- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
; _$255$DUA28:CSYSLIBIXPORT.L32;1 590 42 7 252 00:00.1 ; 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NDXOUT/OBJ=OBJ$:NDXOUT MSRC$:NDXOUT/UPDATE=(ENHS :NDXOUT) ; 
; Size: 2421 code + 1236 data bytes 3 
3; Run Time: 239. ; 
; Elapsed Time: 01:59.5 : 
3; Lines/CPU Min: 760 3 
3; Lexemes/CPU-Min: 38622 : 
; ponory ¥ Used: 232 pages . 
; Compilation Complete : 


: COMMAND QUALIFIERS 
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